From 8c398d7ce3ea298c2b6d399685baa7f41b7a1c7d Mon Sep 17 00:00:00 2001
From: cjwatson <>
Date: Sun, 17 Jul 2005 17:00:20 -0800
Subject: [PATCH] [project @ 2005-07-17 18:00:20 by cjwatson] chdir to
 $gSpoolDir before starting

---
 migrate/debbugs-makeversions | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/migrate/debbugs-makeversions b/migrate/debbugs-makeversions
index 2891dfe..4ce26ab 100755
--- a/migrate/debbugs-makeversions
+++ b/migrate/debbugs-makeversions
@@ -136,17 +136,18 @@ sub mergeinto ($$)
     }
 }
 
+chdir $gSpoolDir or die "Can't chdir $gSpoolDir: $!";
+
 my $db = $ARGV[0];
-opendir DB, "$gSpoolDir/$db" or die "Can't opendir $db: $!";
+opendir DB, $db or die "Can't opendir $db: $!";
 
 while (defined(my $dir = readdir DB)) {
-    next if $dir =~ /^\.\.?$/ or not -d "$gSpoolDir/$db/$dir";
-    opendir HASH, "$gSpoolDir/$db/$dir"
-	or die "Can't opendir $gSpoolDir/$db/$dir: $!";
+    next if $dir =~ /^\.\.?$/ or not -d "$db/$dir";
+    opendir HASH, "$db/$dir" or die "Can't opendir $db/$dir: $!";
 
     while (defined(my $file = readdir HASH)) {
 	next unless $file =~ /\.log$/;
-	next if -z "$gSpoolDir/$db/$dir/$file";
+	next if -z "$db/$dir/$file";
 	(my $bug = $file) =~ s/\..*//;
 
 	$bug =~ /(..)$/;
@@ -160,8 +161,7 @@ while (defined(my $dir = readdir DB)) {
 	    next;
 	}
 
-	my ($found_versions, $fixed_versions) =
-	    getbuginfo("$gSpoolDir/$db/$dir/$file");
+	my ($found_versions, $fixed_versions) = getbuginfo("$db/$dir/$file");
 
 	if (length $status->{mergedwith}) {
 	    @merges = sort { $a <=> $b } split ' ', $status->{mergedwith};
@@ -174,7 +174,7 @@ while (defined(my $dir = readdir DB)) {
 		$merge =~ /(..)$/;
 		my $mergehash = $1;
 		my ($mfound, $mfixed) =
-		    getbuginfo("$gSpoolDir/$db/$mergehash/$merge.log");
+		    getbuginfo("$db/$mergehash/$merge.log");
 		mergeinto($found_versions, $mfound);
 		mergeinto($fixed_versions, $mfixed);
 	    }
-- 
2.39.2