Add Ryan Voots to AUTHORS file

[perl5.git] / utils / splain.PL

diff --git a/utils/splain.PL b/utils/splain.PL
index bbcdad6..ccf325d 100644 (file)
--- a/utils/splain.PL
+++ b/utils/splain.PL
@@ -21,11 +21,11 @@ $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');
-open IN or die "Can't open $IN: $!\n";
+$in = File::Spec->catfile(File::Spec->updir, 'lib', 'diagnostics.pm');
+open IN, '<', $in or die "Can't open $in: $!\n";
 
 # Create output file.
-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";