1. Shlomi Fish
  2. perl-File-Find-Object

Commits

shl...@6f433eb9-a002-0410-945b-ee5462c261ee  committed 0d17861

Changed "$cond and return" to "if ($cond) { return }".

  • Participants
  • Parent commits 962201e
  • Branches default

Comments (0)

Files changed (1)

File lib/File/Find/Object.pm

View file
     my ($self) = @_;
     while (1) {
         my $current = $self->_current();
-        $self->_process_current($current) and return $self->item($self->current_path($current));
+        if ($self->_process_current($current))
+        {
+            return $self->item($self->current_path($current));
+        }
         $current = $self->_current();
         if(!$self->movenext) {
-            $self->me_die($current) and return $self->item(undef);
+            if ($self->me_die($current))
+            {
+                return $self->item(undef);
+            }
         }
     }
 }