From 1c1c7f20b839aeb1c04942d0884c3efb087d3e4a Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Sat, 28 Feb 1998 23:11:00 +0000 Subject: [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 --- win32/bin/search.pl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'win32/bin') 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; } -- cgit v1.2.1