From: Nick Ing-Simmons Date: Wed, 13 May 1998 20:39:59 +0000 (+0000) Subject: resolve -at //depot/win32 into ansiperl for C++ testing. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0559d6709bef71ddf2b29eb9894aa0c5747eb3ef;p=p5sagit%2Fp5-mst-13.2.git resolve -at //depot/win32 into ansiperl for C++ testing. p4raw-id: //depot/ansiperl@930 --- 0559d6709bef71ddf2b29eb9894aa0c5747eb3ef diff --cc utils/perldoc.PL index 23ec12f,3a6059b..80a721c --- a/utils/perldoc.PL +++ b/utils/perldoc.PL @@@ -168,11 -164,9 +168,10 @@@ sub minus_f_nocase } local *DIR; local($")="/"; - my(@p,$p,$cip); + my @p = ($dir); + my($p,$cip); foreach $p (split(/\//, $file)){ my $try = "@p/$p"; - warn "$try\n"; stat $try; if (-d _){ push @p, $p;