summaryrefslogtreecommitdiff
path: root/win32/bin
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1998-02-28 23:11:00 +0000
committerGurusamy Sarathy <gsar@cpan.org>1998-02-28 23:11:00 +0000
commit1c1c7f20b839aeb1c04942d0884c3efb087d3e4a (patch)
tree520fab1019a7e34a8d8090c712af7aa799736d00 /win32/bin
parent0bfcb09dbc8a8333a31bc4ed39ebc944580fd2fe (diff)
downloadperl-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.pl5
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;
}