Mercurial Mercurial > hg > exiacl / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
exiacl.pl
changeset 16 1a5dfa10610c
parent 14 dd2a6d48b046
child 17 9876af693873 
--- a/exiacl.pl	Thu Mar 09 08:18:04 2006 +0000
+++ b/exiacl.pl	Thu Apr 13 10:20:50 2006 +0000
@@ -87,7 +87,7 @@
     $Cf->From($Cf->from)		    unless $Cf->From;
     $Cf->To($Cf->to)			    unless $Cf->To;
 
-    $Cf->Helo((split/@/, $Cf->from||"")[1] || HOSTNAME)	    
+    $Cf->Helo(map { s/[<>]//g; $_ } (split/@/, $Cf->from||"")[1] || HOSTNAME)	    
 					    unless $Cf->Helo;
     $Cf->dst(addr(HOSTNAME))		    unless $Cf->dst;
exiacl