From 5eee9a47b12113cb042f09c842f3999bccbb2dee Mon Sep 17 00:00:00 2001
From: doogie <>
Date: Sun, 30 Apr 2000 09:25:27 -0800
Subject: [PATCH] [project @ 2000-04-30 10:25:27 by doogie] Added quit() and
 sani(), from the old errorlib.  sani() calls HTML::Entities::encode(); this
 is untested.

---
 Debbugs/Common.pm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/Debbugs/Common.pm b/Debbugs/Common.pm
index 9c8e96ce..67a032ac 100644
--- a/Debbugs/Common.pm
+++ b/Debbugs/Common.pm
@@ -10,7 +10,7 @@ BEGIN {
 	$VERSION     = 1.00;
 
 	@ISA         = qw(Exporter);
-	@EXPORT      = qw( &fail );
+	@EXPORT      = qw(&fail &NameToPathHash &sani &quit);
 	%EXPORT_TAGS = (  );     # eg: TAG => [ qw!name1 name2! ],
 
 	# your exported package globals go here,
@@ -41,5 +41,16 @@ sub NameToPathHash
     return "$3/$2/$1/$name";
 }
 
+sub quit
+{
+    print DEBUG "quitting >$_[0]<\n";
+    local ($u);
+    while ($u= $cleanups[$#cleanups]) { &$u; }
+    die "*** $_[0]\n";
+}
+sub sani
+{
+    HTML::Entities::encode($a);
+}
 1;
 END { }       # module clean-up code here (global destructor)
-- 
2.39.5