perldelta: update @INC blurb in Notice

[perl5.git] / Porting / check83.pl

diff --git a/Porting/check83.pl b/Porting/check83.pl
old mode 100644 (file)
new mode 100755 (executable)
index 1bd863f..fbe5655
--- a/Porting/check83.pl
+++ b/Porting/check83.pl
@@ -45,7 +45,7 @@ sub eight_dot_three {
 
 my %dir;
 
-if (open(MANIFEST, "MANIFEST")) {
+if (open(MANIFEST, '<', 'MANIFEST')) {
     while (<MANIFEST>) {
        chomp;
        s/\s.+//;
@@ -62,7 +62,7 @@ if (open(MANIFEST, "MANIFEST")) {
            next;
        }
        while (m!/|\z!g) {
-           my ($dir, $edt) = eight_dot_three($`);
+           my ($dir, $edt) = eight_dot_three("$`");
            next unless defined $dir;
            ($dir, $edt) = map { lc } ($dir, $edt);
            push @{$dir{$dir}->{$edt}}, $_;