X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/cee96d52c39b1e7b36e1c62d38bcd8d86e9a41ab..f61895d86cadbacd4040b7a2dccb1c1b95396239:/utils/libnetcfg.PL

diff --git a/utils/libnetcfg.PL b/utils/libnetcfg.PL
index 26d2f99..e1e9ee2 100644
--- a/utils/libnetcfg.PL
+++ b/utils/libnetcfg.PL
@@ -18,7 +18,7 @@ chdir dirname($0);
 my $file = basename($0, '.PL');
 $file .= '.com' if $^O eq 'VMS';
 
-open OUT,">$file" or die "Can't create $file: $!";
+open OUT, ">", $file or die "Can't create $file: $!";
 
 print "Extracting $file (with variable substitutions)\n";
 
@@ -343,7 +343,7 @@ my %oldcfg = ();
 $Net::Config::CONFIGURE = 1; # Suppress load of user overrides
 if( -f $libnet_cfg_in )
  {
-  %oldcfg = ( %{ do $libnet_cfg_in } );
+  %oldcfg = ( %{ local @INC = '.'; do $libnet_cfg_in } );
  }
 elsif (eval { require Net::Config }) 
  {