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

diff --git a/lib/Regexp/Wildcards.pm b/lib/Regexp/Wildcards.pm
index 6444f96..b70b593 100644
--- a/lib/Regexp/Wildcards.pm
+++ b/lib/Regexp/Wildcards.pm
@@ -297,6 +297,8 @@ No argument means C<< set => [ ] >>.
     $rw->do(rem => 'jokers');           # Specifying both 'sql' and 'jokers' is useless.
     $rw->do();                          # Translate nothing.
 
+The C<do> method returns the L<Regexp::Wildcards> object.
+
 =head2 C<type $type>
 
 Notifies to convert the metacharacters that corresponds to the predefined type C<$type>.
@@ -402,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};