Skip to content
Browse files

fix the 5.13.1-related test logic

  • Loading branch information...
1 parent d275cf7 commit 9f8eb9727c1943b14254933d299be972934619c7 @rjbs committed Apr 26, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 t/basic.t
View
4 t/basic.t
@@ -1,6 +1,6 @@
use strict;
use warnings;
-use Test::More tests => 7 + ($] >= 5.013001 ? 0 : 1);
+use Test::More tests => 7 + ($] < 5.013001 ? 1 : 0);
use Test::Fatal qw(exception success);
use Try::Tiny 0.07;
@@ -54,7 +54,7 @@ try {
sub DESTROY { eval { my $x = 'o no'; } }
}
-if ($] <= 5.013001) {
+if ($] < 5.013001) {
like(
exception { exception {
my $blackguard = bless {}, 'BreakException';

0 comments on commit 9f8eb97

Please sign in to comment.
Something went wrong with that request. Please try again.