X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FRegexp-Wildcards.git;a=blobdiff_plain;f=samples%2Fwc2re.pl;h=b3336f744192122f56f7c7b4499700d8eefd3781;hp=0afc1268a8163b1de5a42fe59abd5f5793dbf72c;hb=7bcbae57add0ff30a2c4b9c70b679a3a65c7bc34;hpb=9eb474e21beff59f4f33450489d6903f51d0afe0

diff --git a/samples/wc2re.pl b/samples/wc2re.pl
index 0afc126..b3336f7 100755
--- a/samples/wc2re.pl
+++ b/samples/wc2re.pl
@@ -12,11 +12,7 @@ my $rw = Regexp::Wildcards->new(
  do      => [ qw/brackets/ ],
  capture => [ qw/single/ ],
 );
-
-use Data::Dumper;
-print Dumper($rw);
-
+$rw->do(add => [ qw/jokers/ ]);
 $rw->capture(add => [ qw/brackets any greedy/ ]);
-print Dumper($rw);
 
 print $_, ' => ', $rw->convert($_), "\n" for @ARGV;