This is 1.00

[perl/modules/Regexp-Wildcards.git] / samples / wc2re.pl

diff --git a/samples/wc2re.pl b/samples/wc2re.pl
index 0afc1268a8163b1de5a42fe59abd5f5793dbf72c..b3336f744192122f56f7c7b4499700d8eefd3781 100755 (executable)
--- 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;