diff options
Diffstat (limited to 'utils/json_pp.PL')
| -rw-r--r-- | utils/json_pp.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/json_pp.PL b/utils/json_pp.PL index 72c2e90785..efd8e23b0c 100644 --- a/utils/json_pp.PL +++ b/utils/json_pp.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"; @@ -38,7 +38,7 @@ my $script = File::Spec->catfile( File::Spec->updir, qw[cpan JSON-PP bin] ), "json_pp"); -if (open(IN, $script)) { +if (open(IN, '<', $script)) { print OUT <IN>; close IN; } else { |