fix the skip check for using qr// objects as a buffer
authorTony Cook <tony@develop-help.com>
Mon, 28 Jul 2014 11:11:39 +0000 (21:11 +1000)
committerTony Cook <tony@develop-help.com>
Mon, 28 Jul 2014 11:11:39 +0000 (21:11 +1000)
previously it always skipped

t/200-file/010-iolayer.t

index 079e691..c14d1d3 100644 (file)
@@ -906,7 +906,7 @@ SKIP:
      [ 1000, "IV" ],
      [ 1000.1, "NV" ],
      [ qr/abcd/, "regexp",
-       $> >= 5.012 && "Can't use regexps as a buffer before 5.14" ],
+       $] < 5.014 && "Can't use regexps as a buffer before 5.14" ],
     );
   for my $test (@buffer_tests) {
     my ($val, $note, $skip) = @$test;