X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FSub-Nary.git;a=blobdiff_plain;f=t%2F10-obj.t;fp=t%2F10-obj.t;h=d3ad020f149ac4b14b50a05f52cee58f7a6b2a20;hp=feaecc93526b850ce2fc5f9ffc14175e071ce882;hb=790ba71f0305951a6d7bb04ca02a1dad7563f439;hpb=37cafd97ccbd41d9cde225a53f6a058ac23ce7d5

diff --git a/t/10-obj.t b/t/10-obj.t
index feaecc9..d3ad020 100644
--- a/t/10-obj.t
+++ b/t/10-obj.t
@@ -21,7 +21,7 @@ is(ref $sn3, 'Sub::Nary', 'SN::new called as a functions returns a Sub::Nary obj
 
 my $fake = { };
 bless $fake, 'Sub::Nary::Hlagh';
-for (qw/flush/) {
+for (qw<flush>) {
  eval "Sub::Nary::$_('Sub::Nary')";
  like($@, qr/^First\s+argument/, "SN::$_ isn't a class method");
  eval "Sub::Nary::$_(\$fake)";