From: cjwatson <>
Date: Sun, 25 May 2003 05:34:16 +0000 (-0800)
Subject: [project @ 2003-05-24 22:34:16 by cjwatson]
X-Git-Tag: release/2.6.0~902
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=753d42f5ed0fe4e2e23c6e9caf860e8febfe19a4;p=debbugs.git

[project @ 2003-05-24 22:34:16 by cjwatson]
Clean up horrible indentation in rebuild.in. Sorry for the noise; no
functional changes.
---

diff --git a/scripts/rebuild.in b/scripts/rebuild.in
index d422c3d3..90df1c70 100755
--- a/scripts/rebuild.in
+++ b/scripts/rebuild.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# $Id: rebuild.in,v 1.6 2003/05/03 20:01:20 doogie Exp $
+# $Id: rebuild.in,v 1.7 2003/05/24 22:34:16 cjwatson Exp $
 
 # Load modules and set envirnment
 use File::Copy;
@@ -15,7 +15,7 @@ my $data;
 
 sub readreport {
     my $lref = shift;
-	my $path = shift;
+    my $path = shift;
 	
     $data = readbug($lref);
     return 1;
@@ -32,26 +32,26 @@ open IDXFILE, "> index.$archive" or &quit( "trying to reset index file: $!" );
 
 if ( $archive eq 'db' )
 {
-	opendir(DIR,'db') || next; 
-	@list= grep(m/^\d+\.status$/,readdir(DIR));
-	closedir DIR;
-	grep(s/\.status$//,@list);
-	@list= sort { $a <=> $b } @list;
+    opendir(DIR,'db') || next; 
+    @list= grep(m/^\d+\.status$/,readdir(DIR));
+    closedir DIR;
+    grep(s/\.status$//,@list);
+    @list= sort { $a <=> $b } @list;
 
-	#process each bug (ie, status file)
-	while ( defined( $list[0] )) 
-	{ 	my $ref = shift @list;
-		print STDERR "$ref considering\n" if $debug;
-    	readreport($ref, $path);
-		printf IDXFILE "%s %d %s\n", $data->{package}, $ref, $data->{subject};
+    #process each bug (ie, status file)
+    while ( defined( $list[0] )) 
+    {
+	my $ref = shift @list;
+	print STDERR "$ref considering\n" if $debug;
+	readreport($ref, $path);
+	printf IDXFILE "%s %d %s\n", $data->{package}, $ref, $data->{subject};
     }
 }
 else
 {
-
-#get list of bugs (ie, status files)
-for ($subdir=0; $subdir<100; $subdir++ )
-{
+    #get list of bugs (ie, status files)
+    for ($subdir=0; $subdir<100; $subdir++ )
+    {
 	my $path = sprintf( "$archive/%.2d", $subdir );
 	opendir(DIR,$path) || next; 
 	@list= grep(m/^\d+\.status$/,readdir(DIR));
@@ -61,12 +61,12 @@ for ($subdir=0; $subdir<100; $subdir++ )
 
 	#process each bug (ie, status file)
 	while ( defined( $list[0] )) 
-	{ 	my $ref = shift @list;
-		print STDERR "$ref considering\n" if $debug;
-    	readreport($ref, $path);
-		printf IDXFILE "%s %d %s\n", $data->{package}, $ref, $data->{subject};
+	{
+	    my $ref = shift @list;
+	    print STDERR "$ref considering\n" if $debug;
+	    readreport($ref, $path);
+	    printf IDXFILE "%s %d %s\n", $data->{package}, $ref, $data->{subject};
+	}
     }
 }
-
-}
 close IDXFILE;