[SimBot-commits] CVS: simbot simbot.pl,1.134,1.135

[Pete P. <fou...@us...>]

Update of /cvsroot/simbot/simbot
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28810

Modified Files:
	simbot.pl 
Log Message:
fix a warning


Index: simbot.pl
===================================================================
RCS file: /cvsroot/simbot/simbot/simbot.pl,v
retrieving revision 1.134
retrieving revision 1.135
diff -u -d -p -r1.134 -r1.135
--- simbot.pl	7 Aug 2005 18:25:26 -0000	1.134
+++ simbot.pl	9 Aug 2005 01:01:49 -0000	1.135
@@ -584,7 +584,7 @@ sub htmlize {
 # This doesn't make harvesting impossible, but it does make it more difficult.
 # Viewers without javascript see [email removed] instead.
 sub html_mask_email {
-    my ($user, $host) = @_[0] =~ m/^(\S+)@(\S+)$/;
+    my ($user, $host) = $_[0] =~ m/^(\S+)@(\S+)$/;
     my ($nuser, $nhost);
     for(my $i; $i < length $user; $i++) {
         $nuser .= '&#' . ord(substr($user, $i, 1)) . ';';