fixed bogus perl version queries

LMS-Community · Aug 17, 2016 · 516a500 · 516a500
1 parent 5e9f50a
commit 516a500
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/CPAN/IO/String.pm b/CPAN/IO/String.pm
@@ -79,7 +79,7 @@ sub close
     delete *$self->{buf};
     delete *$self->{pos};
     delete *$self->{lno};
-    if ($] >= 5.006 && $[ < 5.007) {
+    if ($] >= 5.006 && $] < 5.007) {
 	# perl-5.6.x segfaults on untie, so avoid it
     }
     else {

diff --git a/CPAN/PAR.pm b/CPAN/PAR.pm
@@ -573,7 +573,7 @@ sub _find_par_internals {
     my $scheme;
     foreach (@$INC_ARY ? @$INC_ARY : @INC) {
         my $path = $_;
-        if ($[ < 5.008001) {
+        if ($] < 5.008001) {
             # reassemble from "perl -Ischeme://path" autosplitting
             $path = "$scheme:$path" if !@$INC_ARY
                 and $path and $path =~ m!//!