Commits

Anonymous committed 57a3a6e

Eliminated a use of / for paths - using File::Spec instead.

  • Participants
  • Parent commits a252add

Comments (0)

Files changed (1)

lib/File/Find/Object.pm

     $self->isdot($current) and return 0;
     $self->_filter_wrapper($current) or return 0;  
 
-    foreach my $action ($self->depth() ? qw/b a/ : qw/a b/)
+    foreach my $action ($self->depth() ? qw(b a) : qw(a b))
     {
         if ($current->_action->{$action}) {
             next;
     }
 
     my $p = $self->_father($current)->dir();
-    $p =~ s!/+$!!; #!
-    $p .= '/' . $current->_curr_file;
-
-    return $p;
+    
+    return File::Spec->catfile($p, $current->_curr_file);
 }
 
 sub open_dir {