From afea16062ab02537742309f4c606d0541c6fdf7e Mon Sep 17 00:00:00 2001
From: terry <terry@18797224-902f-48f8-a5cc-f745e15eee43>
Date: Fri, 19 Jun 1998 15:32:07 +0000
Subject: [PATCH] cd to the real tinderbox dir.

git-svn-id: svn://10.0.0.236/trunk@4143 18797224-902f-48f8-a5cc-f745e15eee43
---
 mozilla/webtools/tinderbox/clean.pl | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/mozilla/webtools/tinderbox/clean.pl b/mozilla/webtools/tinderbox/clean.pl
index 1f0bec1d3e4..709e435135e 100755
--- a/mozilla/webtools/tinderbox/clean.pl
+++ b/mozilla/webtools/tinderbox/clean.pl
@@ -17,7 +17,17 @@
 # Corporation. Portions created by Netscape are Copyright (C) 1998
 # Netscape Communications Corporation. All Rights Reserved.
 
-chdir '/d/webdocs/projects/tinderbox';
+# Figure out which directory tinderbox is in by looking at argv[0]
+
+$tinderboxdir = $0;
+$tinderboxdir =~ s:/[^/]*$::;      # Remove last word, and slash before it.
+if ($tinderboxdir eq "") {
+    $tinderboxdir = ".";
+}
+
+print "tinderbox = $tinderboxdir\n"; 
+
+chdir $tinderboxdir || die "Couldn't chdir to $tinderboxdir"; 
 
 #print "cd ok\n";