view release on metacpan or  search on metacpan

IANA/build_codes.pl  view on Meta::CPAN

# version 1.01 5-7-02, Michael@bizsystems.com
#
# This software is copyright and GPL'd. See the notice in the
# README file for details
#
#  DO NOT RUN THIS SCRIPT IN THIS DIRECTORY
#  IT IS RUN AUTOMATICALLY BY Makefile.PL

die q|DO NOT RUN THIS SCRIPT MANUALLY, IT
IS RUN AUTOMATICALLY BY 'make'
| unless &{$_=sub{(caller)[1]}} eq 'IANA/build_codes.pl';

die "Could not find IANA/protocols"
	unless open(P,'IANA/protocols');

unless (open(I,'IANA/icmp')) {
  close P;
  die "Could not find IANA/icmp";
}

unless (open(C,'>Codes.pm')) {