# Not to be used without the CGI script;
-our $VERSION = '3.04';
+our $VERSION = '3.05';
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>)) {
sub Counter ($) {
local *COUNTER;
local $/ = undef;
- open COUNTER, "+<$_[0]" or
- open COUNTER, ">$_[0]" or return undef;
+ open COUNTER, '+<', $_[0] or
+ open COUNTER, '>', $_[0] or return undef;
flock COUNTER, 2;
seek COUNTER, 0, 0;
my $counter = <COUNTER>;