--- libnet-1.16/Configure~ 2003-06-20 00:38:25 +0000 +++ libnet-1.16/Configure 2003-06-20 00:41:24 +0000 @@ -241,6 +241,7 @@ $libnet_cfg = "libnet.cfg" my %oldcfg = (); $Net::Config::CONFIGURE = 1; # Suppress load of user overrides +if (0) { if( -f $libnet_cfg ) { %oldcfg = ( %{ do $libnet_cfg } ); @@ -250,6 +251,7 @@ elsif (eval { require Net::Config }) $have_old = 1; %oldcfg = %Net::Config::NetConfig; } +} map { $cfg{lc $_} = $cfg{$_}; delete $cfg{$_} if /[A-Z]/ } keys %cfg; --- libnet-1.16/Makefile.PL 2003-06-18 17:41:43 +0000 +++ libnet-1.16.my/Makefile.PL 2003-06-20 01:06:27 +0000 @@ -41,15 +41,7 @@ sub MY::post_initialize my $config_pm = "Net/libnet.cfg"; my $libnet_cfg = "libnet.cfg"; - # Use %INC and ExtUtils::MakeMaker to determine how this machine - # maps package names to path names - - foreach (keys %INC) { - last if ($config_pm = $_) =~ s/^ExtUtils(.)MakeMaker.pm/Net${1}libnet.cfg/; - } - - system(($^O eq 'VMS' ? 'mcr ': ()),$^X, 'Configure') - unless -f $libnet_cfg; + system(($^O eq 'VMS' ? 'mcr ': ()),$^X, 'Configure'); $self->{PM}->{$libnet_cfg} = $self->catfile('$(INST_LIBDIR)',$config_pm);