use vars @EXPORT_OK;
use Debbugs::Config qw(%Globals);
+use FileHandle;
+my @cleanups;
+my $DEBUG = new FileHandle;
sub fail
{
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";
}