summaryrefslogtreecommitdiff
path: root/utils/ptar.PL
diff options
context:
space:
mode:
Diffstat (limited to 'utils/ptar.PL')
-rw-r--r--utils/ptar.PL4
1 files changed, 2 insertions, 2 deletions
diff --git a/utils/ptar.PL b/utils/ptar.PL
index 66242e3cc4..5dbf61b312 100644
--- a/utils/ptar.PL
+++ b/utils/ptar.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 Archive-Tar bin]
), "ptar");
-if (open(IN, $script)) {
+if (open(IN, '<', $script)) {
print OUT <IN>;
close IN;
} else {