message.pl: Correct type: fourohfoud()

diff --git a/CGI/message.pl b/CGI/message.pl
index fb810c366a692a30e7eba920674fd30c719ca164..04c463f337cf6d3415d3a8d9c9a5787f1e899fd4 100755 (executable)
--- a/CGI/message.pl
+++ b/CGI/message.pl
@@ -45,7 +45,7 @@ sub fourohfour() {
 my $path = url( -absolute => 1 );
 
 $path =~ s,^$c{CGIPath},,   or fourohfour();
-$path =~ m,^(mid|message)/, or fourohfoud();
+$path =~ m,^(mid|message)/, or fourohfour();
 my $lookup_key = $1;
 $path =~ s,^$lookup_key,,;