X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FRegexp-Wildcards.git;a=blobdiff_plain;f=samples%2Fwc2re.pl;h=49a78909dd0b86fdb7cf4ad5e07ef71df96d6d09;hp=4c6c3404e80d882c9184f9eb979a99f5e5957cc8;hb=6305572fe1d1790682966644ede8f267f22bd1d1;hpb=eafc1dab0ebd73e592fda42a9db18d6d4a64c96b

diff --git a/samples/wc2re.pl b/samples/wc2re.pl
index 4c6c340..49a7890 100755
--- a/samples/wc2re.pl
+++ b/samples/wc2re.pl
@@ -3,9 +3,16 @@
 use strict;
 use warnings;
 
+use lib q:../lib/:;
+
 use Regexp::Wildcards qw/wc2re/;
 
 my $type = (grep $^O eq $_, qw/dos os2 MSWin32 cygwin/) ? 'win32' : 'unix';
-
 print "For this system, type is $type\n";
-print $_, ' => ', wc2re($_ => $type), "\n" for @ARGV;
+
+{
+ local $Regexp::Wildcards::CaptureBrackets = 1;
+ local $Regexp::Wildcards::CaptureAny = -1;
+ print $_, ' => ', wc2re($_ => $^O), "\n" for @ARGV;
+}
+