From 4962aa252f2439eebb0b2fa10c5e0f60efb60ec3 Mon Sep 17 00:00:00 2001
From: doogie <>
Date: Mon, 1 May 2000 08:23:03 -0800
Subject: [PATCH] [project @ 2000-05-01 09:23:03 by doogie] Added 'my' to inner
 @files in GetBugList, so that the tree layout is properly walked.

---
 Debbugs/DBase.pm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/Debbugs/DBase.pm b/Debbugs/DBase.pm
index 8bc57945..913fd1f6 100644
--- a/Debbugs/DBase.pm
+++ b/Debbugs/DBase.pm
@@ -202,20 +202,20 @@ sub GetBugList
 	foreach (grep { /^[s0-9]$/ } @files) {
 	    my $_1 = $_;
 	    opendir $dir, $prefix . $_1;
-	    @files = grep { /^\d$/ } readdir($dir);
+	    my @files = grep { /^\d$/ } readdir($dir);
 	    closedir $dir;
 	    foreach (@files) {
 		my $_2 = $_;
-		opendir $dir, $prefix . $_1 . "/" .$_2;
-		@files = grep { /^\d$/ } readdir($dir);
+		opendir $dir, "$prefix$_1/$_2";
+		my @files = grep { /^\d$/ } readdir($dir);
 		close $dir;
 		foreach (@files) {
 		    my $_3 = $_;
-		    opendir $dir, $prefix . $_1 . "/" . $_2 . "/" .$_3;
-		    @files = grep { /\d*\d\d.status/ } readdir($dir);
+		    opendir $dir, "$prefix$_1/$_2/$_3";
+		    my @files = grep { /\d*\d\d.status/ } readdir($dir);
 		    close $dir;
 		    foreach (@files) {
-			next if ( ! -s $prefix . $_1 . "/" . $_2 . "/" .$_3 . "/" . $_ );
+			next if ( -s "$prefix$_1/$_2/$_3/$_" );
 			s/.status$//;
 			push @ret, $_;
 #			print "$_ -> $_1/$_2/$_3/$_\n";
-- 
2.39.5