From: Juerd Waalboer <juerd@cpan.org>
Date: Fri, 12 Apr 2002 07:07:23 +0000 (+0000)
Subject: v3.05 release
X-Git-Tag: 3.06~1
X-Git-Url: http://git.shiar.net/perl/plp/.git/commitdiff_plain/7685d1a41798147fed9cdeb4edee8920b8c39672

v3.05 release
---

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>)) {
diff --git a/PLP/Functions.pm b/PLP/Functions.pm
index 99aa27b..080c615 100644
--- 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 e9961f6..854fe69 100755
--- 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 = '';