From: Vincent Pit 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/(?_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}) {