X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2Fstrictures.git;a=blobdiff_plain;f=t%2Fstrictures.t;h=ad8ec108b5e5a2e73702d571b74a252dc9d63ab5;hp=411bccea0741dfa44d63384ac61e5f80bd3850c2;hb=3d4f7774b1c23f9e06a612d06e2b9683a884cc4c;hpb=916b4fd2ade899ef81e8359c35659a2b0e221dc9 diff --git a/t/strictures.t b/t/strictures.t index 411bcce..ad8ec10 100644 --- a/t/strictures.t +++ b/t/strictures.t @@ -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/,