Fixing bug that prevented -p option from working on the Mac (again!)

This commit is contained in:
pschwartau%netscape.com 2001-10-04 02:08:16 +00:00
Родитель 9eacdc09ac
Коммит 8e321ed4c9
1 изменённых файлов: 11 добавлений и 3 удалений

Просмотреть файл

@ -419,11 +419,19 @@ sub parse_args {
} elsif ($option eq "p") {
$opt_suite_path = $value;
if (!($opt_suite_path =~ /[\/\\]$/)) {
$opt_suite_path .= "/";
if ($os_type eq "MAC") {
if (!($opt_suite_path =~ /\:$/)) {
$opt_suite_path .= ":";
}
} else {
if (!($opt_suite_path =~ /[\/\\]$/)) {
$opt_suite_path .= "/";
}
}
&dd ("opt: setting suite path to '$opt_suite_path'.");
} elsif ($option eq "s") {
$opt_shell_path = $value;
&dd ("opt: setting shell path to '$opt_shell_path'.");