X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FRegexp%2FWildcards.pm;h=e59e3eaa451ed042df14ae89d17911e7e09d1b4b;hb=refs%2Ftags%2Fv1.01;hp=756545fec6df79704200ed4f0b78eab9da67e272;hpb=81064d8ddc1dbde28e83cb4d1994f0759ce5dd10;p=perl%2Fmodules%2FRegexp-Wildcards.git

diff --git a/lib/Regexp/Wildcards.pm b/lib/Regexp/Wildcards.pm
index 756545f..e59e3ea 100644
--- a/lib/Regexp/Wildcards.pm
+++ b/lib/Regexp/Wildcards.pm
@@ -12,13 +12,13 @@ Regexp::Wildcards - Converts wildcard expressions to Perl regular expressions.
 
 =head1 VERSION
 
-Version 1.00
+Version 1.01
 
 =cut
 
 use vars qw/$VERSION/;
 BEGIN {
- $VERSION = '1.00';
+ $VERSION = '1.01';
 }
 
 =head1 SYNOPSIS
@@ -339,8 +339,11 @@ sub convert {
  my $do = $config->{do};
  my $e  = $config->{escape};
  $wc =~ s/(?<!\\)((?:\\\\)*[^\w\s\\$e])/\\$1/g;
- return $self->_sql($wc)   if $do->{sql};
- $wc = $self->_jokers($wc) if $do->{jokers};
+ if ($do->{jokers}) {
+  $wc = $self->_jokers($wc);
+ } elsif ($do->{sql}) {
+  $wc = $self->_sql($wc);
+ }
  if ($do->{brackets}) {
   $wc = $self->_bracketed($wc);
  } elsif ($do->{commas}) {