X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLexical-Types.git;a=blobdiff_plain;f=t%2F11-args.t;h=695d6c9ad04e895af97886b55a72a35c3546245f;hp=26aa4b6335d89f1f2bdba3752e508432adc3fa01;hb=bf1b09f4ab8df1710df549764d511b110c6cb396;hpb=67165b7d215ffac8a1c56642fbffbf2715b9e6d1
diff --git a/t/11-args.t b/t/11-args.t
index 26aa4b6..695d6c9 100644
--- a/t/11-args.t
+++ b/t/11-args.t
@@ -88,7 +88,7 @@ use Test::More tests => 14 + 6;
my $expect = qr/^Invalid ARRAY reference/;
local $@;
eval q[
- use Lexical::Types as => [ qw/a b c/ ];
+ use Lexical::Types as => [ qw ];
my LTT $x;
];
like $@, $expect, 'as => array';
@@ -99,7 +99,7 @@ use Test::More tests => 14 + 6;
diag 'This will throw two warnings' if $] >= 5.008008 and $] < 5.009;
local $@;
eval q[
- use Lexical::Types as => sub { qw/a b c/ };
+ use Lexical::Types as => sub { qw };
my LTT $x;
];
like $@, $expect, 'as => code, returning three scalars';