utils/libnetcfg: fix 'do' without '.' in @INC

[perl5.git] / utils / libnetcfg.PL

diff --git a/utils/libnetcfg.PL b/utils/libnetcfg.PL
index f66e9b0..e1e9ee2 100644 (file)
--- a/utils/libnetcfg.PL
+++ b/utils/libnetcfg.PL
@@ -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 }) 
  {