Commits

Anonymous committed 6ff2f4d

Added the ->dev() accessor.

Comments (0)

Files changed (1)

lib/File/Find/Object.pm

 __PACKAGE__->mk_accessors(qw(
     _action
     _curr_file
+    dev
     dir
     _files
     idx
     {
         return 0;
     }
-    if ($st[0] != $self->_father($current)->{dev} && $self->{nocrossfs})
+    if ($st[0] != $self->_father($current)->dev() && $self->{nocrossfs})
     {
         return 0;
     }
     closedir($handle);
     my @st = stat($current->dir());
     $current->inode($st[1]);
-    $current->{dev} = $st[0];
+    $current->dev($st[0]);
     return 1;
 }