[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.

diff --git a/Debbugs/Common.pm b/Debbugs/Common.pm
index 9c8e96cecd4512a0ec43b9faf4a8d272a94c2301..67a032ace0dd5dfb6f8b44b759d202b599bee13c 100644 (file)
--- 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)