[project @ 2000-11-17 11:46:07 by ajt]

[debbugs.git] / cgi / common.pl

diff --git a/cgi/common.pl b/cgi/common.pl
index ae8cc172034fc3218fcacac9f46a001d92e809af..d67d7af78607896edbae6c17c0039608e799d8e9 100644 (file)
--- a/cgi/common.pl
+++ b/cgi/common.pl
@@ -124,7 +124,7 @@ sub htmlindexentrystatus {
 }
 
 sub submitterurl {
-    my $ref = shift;
+    my $ref = shift || "";
     my $params = "submitter=" . emailfromrfc822($ref);
     $params .= "&archive=yes" if ($common_archive);
     $params .= "&repeatmerged=yes" if ($common_repeatmerged);
@@ -132,7 +132,7 @@ sub submitterurl {
 }
 
 sub mainturl {
-    my $ref = shift;
+    my $ref = shift || "";
     my $params = "maint=" . emailfromrfc822($ref);
     $params .= "&archive=yes" if ($common_archive);
     $params .= "&repeatmerged=yes" if ($common_repeatmerged);
@@ -150,7 +150,7 @@ sub pkgurl {
 
 sub htmlsanit {
     my %saniarray = ('<','lt', '>','gt', '&','amp', '"','quot');
-    my $in = shift;
+    my $in = shift || "";
     my $out;
     while ($in =~ m/[<>&"]/) {
         $out .= $`. '&'. $saniarray{$&}. ';';