X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FRegexp-Wildcards.git;a=blobdiff_plain;f=lib%2FRegexp%2FWildcards.pm;h=a3611768621b6d813ff74c31e9a85f3f5ce47b02;hp=d4b1cb3a4956d6be2fd8c2b11593abb8478a18f3;hb=03007c83b1d852b1f2120c7aa500c36607d30e72;hpb=6305572fe1d1790682966644ede8f267f22bd1d1

diff --git a/lib/Regexp/Wildcards.pm b/lib/Regexp/Wildcards.pm
index d4b1cb3..a361176 100644
--- a/lib/Regexp/Wildcards.pm
+++ b/lib/Regexp/Wildcards.pm
@@ -11,20 +11,20 @@ Regexp::Wildcards - Converts wildcard expressions to Perl regular expressions.
 
 =head1 VERSION
 
-Version 0.04
+Version 0.05
 
 =cut
 
-our $VERSION = '0.04';
+our $VERSION = '0.05';
 
 =head1 SYNOPSIS
 
     use Regexp::Wildcards qw/wc2re/;
 
     my $re;
-    $re = wc2re 'a{b.,c}*' => 'unix';   # Do it Unix style.
-    $re = wc2re 'a.,b*'    => 'win32';  # Do it Windows style.
-    $re = wc2re '*{x,y}.'  => 'jokers'; # Process the jokers & escape the rest.
+    $re = wc2re 'a{b?,c}*' => 'unix';   # Do it Unix style.
+    $re = wc2re 'a?,b*'    => 'win32';  # Do it Windows style.
+    $re = wc2re '*{x,y}?'  => 'jokers'; # Process the jokers & escape the rest.
 
 =head1 DESCRIPTION
 
@@ -34,14 +34,14 @@ In many situations, users may want to specify patterns to match but don't need t
 
 These variables control if the wildcards jokers and brackets must capture their match. They can be globally set by writing in your program
 
-    $Regexp::Wildcards::CaptureAny = -1;
-    # From then, '*' jokers are capturing
+    $Regexp::Wildcards::CaptureSingle = 1;
+    # From then, the '?' joker is capturing
 
 or can be locally specified via C<local>
 
     {
-     local $Regexp::Wildcards::CaptureAny = -1;
-     # In this block, the '*' joker is capturing.
+     local $Regexp::Wildcards::CaptureAny = 1;
+     # In this block, the '?' joker is capturing.
      ...
     }
     # Back to the situation from before the block
@@ -201,6 +201,10 @@ our %EXPORT_TAGS = ( all => [ @EXPORT_OK ] );
 
 L<Text::Balanced>, which is bundled with perl since version 5.7.3
 
+=head1 CAVEATS
+
+This module does not implement the strange behaviours of Windows shell that result from the special handling of the three last characters (for the file extension). For example, Windows XP shell matches C<*a> like C<.*a>, C<*a?> like C<.*a.?>, C<*a??> like C<.*a.{0,2}> and so on.
+
 =head1 SEE ALSO
 
 Some modules provide incomplete alternatives as helper functions :
@@ -238,7 +242,7 @@ under the same terms as Perl itself.
 
 =cut
 
-sub extract { extract_bracketed shift, '{',  qr/.*?(?:(?<!\\)(?:\\\\)*)(?={)/; }
+sub extract { extract_bracketed shift, '{',  qr/.*?(?<!\\)(?:\\\\)*(?={)/; }
 
 sub do_jokers {
  local $_ = shift;