projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
combined
(merge:
5315ba2
8bf3b01
)
resolve -at //depot/win32 into ansiperl for C++ testing.
author
Nick Ing-Simmons
<nik@tiuk.ti.com>
Wed, 13 May 1998 20:39:59 +0000
(20:39 +0000)
committer
Nick Ing-Simmons
<nik@tiuk.ti.com>
Wed, 13 May 1998 20:39:59 +0000
(20:39 +0000)
p4raw-id: //depot/ansiperl@930
1
2
utils/perldoc.PL
patch
|
diff1
|
diff2
|
blob
|
history
diff --cc
utils/perldoc.PL
index
23ec12f
,
3a6059b
..
80a721c
---
1
/
utils/perldoc.PL
---
2
/
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;