From f7667819bf7b68b533e77a5993a15d2c7dac2dab Mon Sep 17 00:00:00 2001
From: "pschwartau%netscape.com"
 <pschwartau%netscape.com@18797224-902f-48f8-a5cc-f745e15eee43>
Date: Mon, 25 Jun 2001 21:04:02 +0000
Subject: [PATCH] Fixing bug that prevented -p option from working 
 (user-specified path to test directory)

git-svn-id: svn://10.0.0.236/trunk@97872 18797224-902f-48f8-a5cc-f745e15eee43
---
 mozilla/js/tests/jsDriver.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/mozilla/js/tests/jsDriver.pl b/mozilla/js/tests/jsDriver.pl
index 0b7178b839a..42d571cd167 100755
--- a/mozilla/js/tests/jsDriver.pl
+++ b/mozilla/js/tests/jsDriver.pl
@@ -807,7 +807,7 @@ sub expand_user_test_list {
     my ($list_file) = @_;
     my @retval = ();
 
-    if ($list_file =~ /\.js$/ || -d $list_file) {
+    if ($list_file =~ /\.js$/ || -d $opt_suite_path . $list_file) {
 
         push (@retval, &expand_test_list_entry($list_file));
 
@@ -839,7 +839,7 @@ sub expand_user_test_list {
 #
 sub expand_test_list_entry {
     my ($entry) = @_;
-    my $isFile = -f $entry;
+    my $isFile = -f $opt_suite_path . $entry;
     my @retval;
 
     #