v3.05 release

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>)) {

diff --git a/PLP/Functions.pm b/PLP/Functions.pm
index 99aa27b1ffc1dd12a19fca30a8c2fe52dfb5a20a..080c61559e6b273ec3cfbb76970f75f89f317233 100644 (file)
--- a/PLP/Functions.pm
+++ b/PLP/Functions.pm
@@ -122,8 +122,8 @@ sub WriteFile ($$) {
 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>;

diff --git a/plp.cgi b/plp.cgi
index e9961f6511ef4d7669b3abce5b77a3967ce048c4..854fe69ec53ecdd867e72c5910d30483032c2f35 100755 (executable)
--- a/plp.cgi
+++ b/plp.cgi
@@ -3,7 +3,7 @@ use v5.6.0;
 use PLP;
 use strict;
 
-die 'Wrong module version' if $PLP::VERSION ne '3.04';
+die 'Wrong module version' if $PLP::VERSION ne '3.05';
 
 {
     $PLP::code = '';