X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/756d5de12d15296e7689a7c5c7b5e35bd0bccb0e..7685d1a41798147fed9cdeb4edee8920b8c39672:/PLP.pm

diff --git a/PLP.pm b/PLP.pm
index 52fba51..884a2e4 100644
--- 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>)) {