X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FRegexp%2FWildcards.pm;fp=lib%2FRegexp%2FWildcards.pm;h=b70b593edaae910d4adacef7773bce5b5bd6160c;hb=9c3834679ddb9a9abec641bd0c90c7f73f60b730;hp=ac0cec3d2fec31eaf66b3e66403f93e0c7e22ce3;hpb=d2abbc098aa8c983e2fd330d5282a4363c3f12a9;p=perl%2Fmodules%2FRegexp-Wildcards.git

diff --git a/lib/Regexp/Wildcards.pm b/lib/Regexp/Wildcards.pm
index ac0cec3..b70b593 100644
--- a/lib/Regexp/Wildcards.pm
+++ b/lib/Regexp/Wildcards.pm
@@ -404,12 +404,7 @@ It successively escapes all unprotected regexp special characters that doesn't h
 sub convert {
  my ($self, $wc, $type) = @_;
  _check_self $self;
- my $config;
- if (defined $type) {
-  $config = $self->_type($type);
- } else {
-  $config = $self;
- }
+ my $config = (defined $type) ? $self->_type($type) : $self;
  return unless defined $wc;
  my $do = $config->{do};
  my $e  = $config->{escape};