Switch to qw<>

[perl/modules/subs-auto.git] / samples / subs.pl

diff --git a/samples/subs.pl b/samples/subs.pl
index 8d25208fc1290015c9858a85e682429a163e7273..4d81e9bdf29412b07a7524ab32683bc942d2e56a 100644 (file)
--- a/samples/subs.pl
+++ b/samples/subs.pl
@@ -3,10 +3,10 @@
 use strict;
 use warnings;
 
-use lib qw{blib/lib};
+use lib qw<blib/lib>;
 
 my $x = 7;
-my @a = qw/ba na na/;
+my @a = qw<ba na na>;
 
 {
  use subs::auto;