This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add strict and warnings to a few utils
authorNicolas R <atoomic@cpan.org>
Thu, 12 Mar 2020 22:42:24 +0000 (16:42 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 13 Mar 2020 16:54:09 +0000 (10:54 -0600)
utils/h2ph.PL
utils/perlbug.PL
utils/pl2pm.PL
utils/splain.PL

index db78749..eece12d 100644 (file)
@@ -1,5 +1,8 @@
 #!/usr/local/bin/perl
 
+use strict;
+use warnings;
+
 use Config;
 use File::Basename qw(basename dirname);
 use Cwd;
@@ -14,9 +17,9 @@ use Cwd;
 
 # This forces PL files to create target in same directory as PL file.
 # This is so that make depend always knows where to find PL derivatives.
-$origdir = cwd;
+my $origdir = cwd;
 chdir dirname($0);
-$file = basename($0, '.PL');
+my $file = basename($0, '.PL');
 $file .= '.com' if $^O eq 'VMS';
 
 open OUT, '>', $file or die "Can't create $file: $!";
index 3a55fa7..8a46b20 100644 (file)
@@ -1,5 +1,8 @@
 #!/usr/local/bin/perl
 
+use strict;
+use warnings;
+
 use Config;
 use File::Basename qw(&basename &dirname);
 use Cwd;
@@ -15,9 +18,9 @@ use File::Spec::Functions;
 
 # This forces PL files to create target in same directory as PL file.
 # This is so that make depend always knows where to find PL derivatives.
-$origdir = cwd;
+my $origdir = cwd;
 chdir dirname($0);
-$file = basename($0, '.PL');
+my $file = basename($0, '.PL');
 $file .= '.com' if $^O eq 'VMS';
 
 open OUT, ">", $file or die "Can't create $file: $!";
index 19aef58..39a1fb9 100644 (file)
@@ -1,5 +1,8 @@
 #!/usr/local/bin/perl
 
+use strict;
+use warnings;
+
 use Config;
 use File::Basename qw(&basename &dirname);
 use Cwd;
@@ -13,9 +16,9 @@ use Cwd;
 
 # This forces PL files to create target in same directory as PL file.
 # This is so that make depend always knows where to find PL derivatives.
-$origdir = cwd;
+my $origdir = cwd;
 chdir dirname($0);
-$file = basename($0, '.PL');
+my $file = basename($0, '.PL');
 $file .= '.com' if $^O eq 'VMS';
 
 open OUT, ">", $file or die "Can't create $file: $!";
index ccf325d..f01ed12 100644 (file)
@@ -1,5 +1,8 @@
 #!/usr/local/bin/perl
 
+use strict;
+use warnings;
+
 use Config;
 use File::Basename qw(&basename &dirname);
 use File::Spec;
@@ -15,13 +18,13 @@ use Cwd;
 
 # This forces PL files to create target in same directory as PL file.
 # This is so that make depend always knows where to find PL derivatives.
-$origdir = cwd;
+my $origdir = cwd;
 chdir dirname($0);
-$file = basename($0, '.PL');
+my $file = basename($0, '.PL');
 $file .= '.com' if $^O eq 'VMS';
 
 # Open input file before creating output file.
-$in = File::Spec->catfile(File::Spec->updir, 'lib', 'diagnostics.pm');
+my $in = File::Spec->catfile(File::Spec->updir, 'lib', 'diagnostics.pm');
 open IN, '<', $in or die "Can't open $in: $!\n";
 
 # Create output file.