This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix missing 'my' in previous change where use strict was in use
authorDominic Hargreaves <dom@earth.li>
Fri, 13 Oct 2017 05:53:18 +0000 (07:53 +0200)
committerDominic Hargreaves <dom@earth.li>
Fri, 13 Oct 2017 05:53:18 +0000 (07:53 +0200)
U/mkglossary
bin/dual.pl

index 018d343..64c7965 100755 (executable)
@@ -7,7 +7,7 @@ use File::Basename;
 
 use FindBin;
 
-$p5_metaconfig_base = "$FindBin::Bin/../";
+my $p5_metaconfig_base = "$FindBin::Bin/../";
 
 my @std_units = glob ("$p5_metaconfig_base/U/*.U");
 my $PWD       =       "$p5_metaconfig_base/perl";
index c44b60d..febf446 100755 (executable)
@@ -15,7 +15,7 @@ use FindBin;
 
 my $pdir = getcwd;
 
-$p5_metaconfig_base = "$FindBin::Bin/../";
+my $p5_metaconfig_base = "$FindBin::Bin/../";
 chdir "$p5_metaconfig_base/perl" ||
     die "perl/ directory missing in $p5_metaconfig_base\n";