This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Rely on C89 <string.h>
[perl5.git] / Porting / check83.pl
old mode 100644 (file)
new mode 100755 (executable)
index 64eac95..fbe5655
@@ -45,7 +45,7 @@ sub eight_dot_three {
 
 my %dir;
 
-if (open(MANIFEST, "MANIFEST")) {
+if (open(MANIFEST, '<', 'MANIFEST')) {
     while (<MANIFEST>) {
        chomp;
        s/\s.+//;