From 430a652fcfc2ab50665fadd47fd3689d24446348 Mon Sep 17 00:00:00 2001
From: "justdave%syndicomm.com" <>
Date: Sat, 13 Oct 2001 08:36:13 +0000
Subject: Fix for bug 104516: No code changes in this patch, all this checkin
 does is remove all tabs from the bugzilla source and replace it with the
 appropriate number of spaces (in most cases 8) to line up with existing code.
  This is part of the effort to bring the existing codebase up to par with our
 style guidelines. Patch by Jake Steehagen <jake@acutex.net> r= justdave x2

---
 globals.pl | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

(limited to 'globals.pl')

diff --git a/globals.pl b/globals.pl
index eedfa12e3..b2ab3167a 100644
--- a/globals.pl
+++ b/globals.pl
@@ -102,8 +102,8 @@ sub ConnectToDatabase {
             $name = Param("shadowdb");
             $::dbwritesallowed = 0;
         }
-	$::db = DBI->connect("DBI:mysql:host=$::db_host;database=$name", $::db_user, $::db_pass)
-	    || die "Bugzilla is currently broken. Please try again later. " . 
+        $::db = DBI->connect("DBI:mysql:host=$::db_host;database=$name", $::db_user, $::db_pass)
+            || die "Bugzilla is currently broken. Please try again later. " . 
       "If the problem persists, please contact " . Param("maintainer") .
       ". The error you should quote is: " . $DBI::errstr;
     }
@@ -212,11 +212,11 @@ sub SendSQL {
     SqlLog($str);
     $::currentquery = $::db->prepare($str);
     if (!$::currentquery->execute) {
-    	my $errstr = $::db->errstr;
-	# Cut down the error string to a reasonable.size
-	$errstr = substr($errstr, 0, 100) . ' ... ' . substr($errstr, -100)
-		if length($errstr) > 200;
-	die "$str: " . $errstr;
+        my $errstr = $::db->errstr;
+        # Cut down the error string to a reasonable.size
+        $errstr = substr($errstr, 0, 100) . ' ... ' . substr($errstr, -100)
+                if length($errstr) > 200;
+        die "$str: " . $errstr;
     }
     SqlLog("Done");
     if (!$dontshadow && $iswrite && Param("shadowdb")) {
@@ -240,10 +240,10 @@ sub MoreSQLData {
         return 0;
     }
     if (defined @::fetchahead) {
-	return 1;
+        return 1;
     }
     if (@::fetchahead = $::currentquery->fetchrow_array) {
-	return 1;
+        return 1;
     }
     return 0;
 }
@@ -254,9 +254,9 @@ sub FetchSQLData {
         return;
     }
     if (defined @::fetchahead) {
-	my @result = @::fetchahead;
-	undef @::fetchahead;
-	return @result;
+        my @result = @::fetchahead;
+        undef @::fetchahead;
+        return @result;
     }
     return $::currentquery->fetchrow_array;
 }
@@ -1091,7 +1091,7 @@ sub SplitEnumType {
         while ($guts =~ /^\'([^\']*)\',(.*)$/) {
             push @result, $1;
             $guts = $2;
-	}
+        }
     }
     return @result;
 }
-- 
cgit v1.2.3-24-g4f1b