[project @ 2000-04-30 11:28:57 by doogie]

Added a DEBUG method, and fixed compilation of quit().

diff --git a/Debbugs/Common.pm b/Debbugs/Common.pm
index 67a032ace0dd5dfb6f8b44b759d202b599bee13c..b940edfef34ca73f06d79fb4fb5568b9d13d9466 100644 (file)
--- a/Debbugs/Common.pm
+++ b/Debbugs/Common.pm
@@ -20,6 +20,9 @@ BEGIN {
 
 use vars      @EXPORT_OK;
 use Debbugs::Config qw(%Globals);
+use FileHandle;
+my @cleanups;
+my $DEBUG = new FileHandle;
 
 sub fail
 {
@@ -41,10 +44,14 @@ sub NameToPathHash
     return "$3/$2/$1/$name";
 }
 
+sub DEBUG
+{
+    print $DEBUG $_;
+}
 sub quit
 {
-    print DEBUG "quitting >$_[0]<\n";
-    local ($u);
+    DEBUG("quitting >$_[0]<\n");
+    my $u;
     while ($u= $cleanups[$#cleanups]) { &$u; }
     die "*** $_[0]\n";
 }