diff options
Diffstat (limited to 'utils/piconv.PL')
| -rw-r--r-- | utils/piconv.PL | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/piconv.PL b/utils/piconv.PL index ca8a8cfb7e..4e012d3dc3 100644 --- a/utils/piconv.PL +++ b/utils/piconv.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"; @@ -35,7 +35,7 @@ use File::Spec; my $piconv = File::Spec->catfile(File::Spec->catdir(File::Spec->updir, "cpan", "Encode", "bin"), "piconv"); -if (open(PICONV, $piconv)) { +if (open(PICONV, '<', $piconv)) { print OUT <PICONV>; close PICONV; } else { |