X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FRegexp-Wildcards.git;a=blobdiff_plain;f=samples%2Fwc2re.pl;h=29603163145075ed29a8b2f79bc413006d9be092;hp=b3336f744192122f56f7c7b4499700d8eefd3781;hb=152b316b711f68b0027cbdd3e231bb6cd3d9b9a5;hpb=faf1f9f18601b51e4a4fce5dbfb0ed9bbf24e72b

diff --git a/samples/wc2re.pl b/samples/wc2re.pl
index b3336f7..2960316 100755
--- a/samples/wc2re.pl
+++ b/samples/wc2re.pl
@@ -3,16 +3,16 @@
 use strict;
 use warnings;
 
-use lib qw{blib/lib};
+use lib qw<blib/lib>;
 
 use Regexp::Wildcards;
 use Data::Dumper;
 
 my $rw = Regexp::Wildcards->new(
- do      => [ qw/brackets/ ],
- capture => [ qw/single/ ],
+ do      => [ qw<brackets> ],
+ capture => [ qw<single> ],
 );
-$rw->do(add => [ qw/jokers/ ]);
-$rw->capture(add => [ qw/brackets any greedy/ ]);
+$rw->do(add => [ qw<jokers> ]);
+$rw->capture(add => [ qw<brackets any greedy> ]);
 
 print $_, ' => ', $rw->convert($_), "\n" for @ARGV;