- Timestamp:
- 09/01/07 16:32:28 (17 months ago)
- Files:
-
- 1 modified
-
ext/File-Find/lib/File/Find.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
ext/File-Find/lib/File/Find.pm
r17112 r17582 31 31 next if $node ~~ m:P5/^(?:\.){1,2}$/; 32 32 my $abs = catdir( $dir, $node ); 33 unless $abs~~ :d {33 if $abs !~~ :d { 34 34 $abs = catfile( $dir, $node ); 35 35 if $wfile_cb( $node, $dir, $abs ) {
