diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 1998-02-28 23:11:00 +0000 |
---|---|---|
committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-02-28 23:11:00 +0000 |
commit | 1c1c7f20b839aeb1c04942d0884c3efb087d3e4a (patch) | |
tree | 520fab1019a7e34a8d8090c712af7aa799736d00 /win32/bin | |
parent | 0bfcb09dbc8a8333a31bc4ed39ebc944580fd2fe (diff) | |
download | perl-1c1c7f20b839aeb1c04942d0884c3efb087d3e4a.tar.gz |
[win32] misc small tweaks
- AutoLoader fix for long::pack::names
- d_mymalloc can be set from makefiles now
- make search.pl actually work on win32
- revert podoc about $^E on OS/2 (per Ilya's wishes)
p4raw-id: //depot/win32/perl@606
Diffstat (limited to 'win32/bin')
-rw-r--r-- | win32/bin/search.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/win32/bin/search.pl b/win32/bin/search.pl index b63f7353af..ad74001be5 100644 --- a/win32/bin/search.pl +++ b/win32/bin/search.pl @@ -71,6 +71,7 @@ sub init { ## initialize variables that might be reset by command-line args $DOREP=0; ## set true by -dorep (redo multi-hardlink files) + $DOREP=1 if $^O eq 'MSWin32'; $DO_SORT=0; ## set by -sort (sort files in a dir before checking) $FIND_ONLY=0; ## set by -find (don't search files) $LIST_ONLY=0; ## set true by -l (list filenames only) @@ -867,7 +868,7 @@ sub dodir } ## skip things that are empty - unless (-s _) { + unless (-s _ || -d _) { warn qq/skip (empty): $file\n/ if $WHY; next; } @@ -894,7 +895,7 @@ sub dodir } ## _never_ redo a directory - if (defined $dir_done{$id}) { + if (defined $dir_done{$id} and $^O ne 'MSWin32') { warn qq/skip (did as "$dir_done{$id}"): $file\n/ if $WHY; next; } |