X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=blobdiff_plain;f=t%2F11-args.t;h=a049ea765b1b01eb1ff4e53df1f7c090474e3634;hp=a1018905af479f52071db03dff4b5c8e74eb4bdd;hb=20bcb585bd9651cd40e91ab49b3651aa7259c3a6;hpb=a0eeae209119b07c3961d3432055eccf84b3b37c

diff --git a/t/11-args.t b/t/11-args.t
index a101890..a049ea7 100644
--- a/t/11-args.t
+++ b/t/11-args.t
@@ -96,7 +96,7 @@ use Test::More tests => 14 + 6;
 
 {
  my $expect = qr/^Lexical::Types mangler should return zero, one or two scalars, but got 3/;
- diag 'This will throw two warnings' if "$]" >= 5.008008 and "$]" < 5.009;
+ diag 'This will throw two warnings' if "$]" >= 5.008_008 and "$]" < 5.009;
  local $@;
  eval q[
   use Lexical::Types as => sub { qw<a b c> };
@@ -117,7 +117,7 @@ use Test::More tests => 14 + 6;
 
 {
  my $expect = qr/^banana at \(eval \d+\) line 2/;
- diag 'This will throw two more warnings' if "$]" >= 5.008008 and "$]" < 5.009;
+ diag 'This will throw two more warnings' if "$]" >= 5.008_008 and "$]" < 5.009;
  local $@;
  eval q[
   use Lexical::Types as => sub { die 'banana' };