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

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>;