This is 1.01

[perl/modules/Regexp-Wildcards.git] / lib / Regexp / Wildcards.pm

diff --git a/lib/Regexp/Wildcards.pm b/lib/Regexp/Wildcards.pm
index 756545fec6df79704200ed4f0b78eab9da67e272..e59e3eaa451ed042df14ae89d17911e7e09d1b4b 100644 (file)
--- 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}) {