# Not to be used without the CGI script;
-our $VERSION = '3.04';
+our $VERSION = '3.06';
use PLP::Functions ();
use PLP::Fields;
: 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>)) {