resolve -at //depot/win32 into ansiperl for C++ testing.
authorNick Ing-Simmons <nik@tiuk.ti.com>
Wed, 13 May 1998 20:39:59 +0000 (20:39 +0000)
committerNick 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

@@@ -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;