Switch qw delimiters to <>

[perl/modules/Sub-Nary.git] / t / 10-obj.t

diff --git a/t/10-obj.t b/t/10-obj.t
index feaecc93526b850ce2fc5f9ffc14175e071ce882..d3ad020f149ac4b14b50a05f52cee58f7a6b2a20 100644 (file)
--- 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)";