X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FCGI.pm;h=2d7cd93c42bb7b8a0f478e5c192fc843e9c41ba3;hb=6ba5d808b76cdb736795d99500c61d61d1da78ab;hp=13e4557ae062c718e1f095b21faf8c0749594989;hpb=01dba5580a90addf0aee2d70c5bc0872c848eef4;p=debbugs.git diff --git a/Debbugs/CGI.pm b/Debbugs/CGI.pm index 13e4557..2d7cd93 100644 --- a/Debbugs/CGI.pm +++ b/Debbugs/CGI.pm @@ -61,7 +61,6 @@ BEGIN{ qw(maybelink htmlize_addresslinks htmlize_maintlinks), ], util => [qw(cgi_parameters quitcgi), - qw(getpseudodesc) ], misc => [qw(maint_decode)], #status => [qw(getbugstatus)], @@ -485,23 +484,6 @@ sub htmlize_maintlinks { our $_maintainer; our $_maintainer_rev; -our $_pseudodesc; -sub getpseudodesc { - return $_pseudodesc if $_pseudodesc; - my %pseudodesc; - - my $pseudo = new IO::File $config{pseudo_desc_file},'r' - or &quitcgi("Unable to open $config{pseudo_desc_file}: $!"); - while(<$pseudo>) { - next unless m/^(\S+)\s+(\S.*\S)\s*$/; - $pseudodesc{lc $1} = $2; - } - close($pseudo); - $_pseudodesc = \%pseudodesc; - return $_pseudodesc; -} - - =head2 bug_links bug_links($one_bug);