Switch qw delimiters to <>

[perl/modules/with.git] / samples / bench.pl

diff --git a/samples/bench.pl b/samples/bench.pl
index 149b964971367e609c3edf78a5b0f413c2bb9aff..fb89ddb40bb4c2352ff46d9c27e2616c10b909de 100755 (executable)
--- a/samples/bench.pl
+++ b/samples/bench.pl
@@ -3,12 +3,12 @@
 use strict;
 use warnings;
 
-use Benchmark qw/cmpthese/;
+use Benchmark qw<cmpthese>;
 
 use lib 'blib/lib';
 
 my $counter;
-my @poultry = (qw/cock chick/);
+my @poultry = (qw<cock chick>);
 
 sub Duck::quack { $counter += $_[0]->{id} * $_[0] }
 sub fly { $counter += $_[0]; }