From: Vincent Pit <vince@profvince.com>
Date: Mon, 18 Aug 2008 21:04:51 +0000 (+0200)
Subject: Enable others transformations after SQL
X-Git-Tag: v1.01~2
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=d6f61a3d7918845e8ee6c9cac65af29aa3ca6cf0;p=perl%2Fmodules%2FRegexp-Wildcards.git

Enable others transformations after SQL
---

diff --git a/lib/Regexp/Wildcards.pm b/lib/Regexp/Wildcards.pm
index 756545f..5d7bf5b 100644
--- a/lib/Regexp/Wildcards.pm
+++ b/lib/Regexp/Wildcards.pm
@@ -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}) {