don't rely on VERSION method to retrieve version to test against
Graham Knop [Sun, 28 Jun 2015 07:32:44 +0000 (03:32 -0400)]
t/strictures.t

index 411bcce..ad8ec10 100644 (file)
@@ -56,7 +56,7 @@ my $v;
 eval { $v = strictures->VERSION; 1 } or diag $@;
 is $v, $strictures::VERSION, '->VERSION returns version correctly';
 
-my $next = int $v + 1;
+my $next = int $strictures::VERSION + 1;
 eval qq{ use strictures $next; };
 
 like $@, qr/strictures version $next required/,