mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-17 00:30:37 -08:00
Code Issues Projects Releases Wiki Activity

Make work in perl 5 on nt

Browse source 
Copied from Perforce
 Change: 18494
 ServerID: perforce.ravenbrook.com
This commit is contained in:
Richard Tucker 1997-07-25 09:05:43 +01:00
parent 7086de03d4
commit f9dbff0a49
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
mps/qa/test/qa
View file

@ -16,11 +16,14 @@ $test_dir = $0;
$0 = "qa testing"; # this will show up in ps
if ($test_dir eq "qa") {
$test_dir = "./qa"
}
$test_dir =~ s/\\/\//; # i.e. convert to unix-style separators
unless ($test_dir =~ m/\//) {
$test_dir = "./".$test_dir;
} # ensure it has at least one / in it
$test_dir =~ s/\/\w+$//; # remove leaf name and preceding separator
$test_dir =~ s/\/\w+$//;
$script_dir = $test_dir."/script";
foreach (@INC) {