Switch to qw<>

[perl/modules/Sub-Prototype-Util.git] / samples / try.pl

diff --git a/samples/try.pl b/samples/try.pl
index 57477fe9c493c711b1885233e13cacb9bca0d89f..3c4426dad89d14377d5fec96474b61e57a0988b1 100755 (executable)
--- a/samples/try.pl
+++ b/samples/try.pl
@@ -5,11 +5,11 @@ use warnings;
 
 use Data::Dumper;
 
-use lib qw{blib/lib};
+use lib qw<blib/lib>;
 
-use Sub::Prototype::Util qw/flatten recall wrap/;
+use Sub::Prototype::Util qw<flatten recall wrap>;
 
-my @a = qw/a b c/;
+my @a = qw<a b c>;
 print "At the beginning, \@a contains :\n", Dumper(\@a);
 
 my @args = ( \@a, 1, { d => 2 }, undef, 3 );