v3.05 release

[perl/plp/.git] / PLP.pm

diff --git a/PLP.pm b/PLP.pm
index 52fba51c64b72c8b472fb854a1754fe35aa1f6c2..884a2e43686cf7f6ce9214b2a5c5d8cae8ff46eb 100644 (file)
--- a/PLP.pm
+++ b/PLP.pm
@@ -2,7 +2,7 @@ package PLP;
 
 # Not to be used without the CGI script;
 
-our $VERSION = '3.04';
+our $VERSION = '3.05';
 
 use PLP::Functions ();
 use PLP::Fields;
@@ -55,7 +55,7 @@ sub source {
        : qq/\n#line 1 "$file"\nprint q\cQ/;
     my $linenr = 0;
     local *SOURCE;
-    open SOURCE, $path or return $level
+    open SOURCE, '<', $path or return $level
        ? qq{\cQ; die qq[Can't open "\Q$path\E" (\Q$!\E)]; print q\cQ}
        : qq{\n#line $linespec\ndie qq[Can't open "\Q$path\E" (\Q$!\E)];};
     LINE: while (defined (my $line = <SOURCE>)) {