# HG changeset patch
# User heiko
# Date 1152710662 0
# Node ID 9876af69387389906aacf83c869dfea0b7eaea2d
# Parent  1a5dfa10610caee6635fa9128da43bae7f5103eb
Komisch.  Read-Only... value modified.  Bei mir war mir das nicht aufgefallen.

diff -r 1a5dfa10610c -r 9876af693873 exiacl.pl
--- a/exiacl.pl	Thu Apr 13 10:20:50 2006 +0000
+++ b/exiacl.pl	Wed Jul 12 13:24:22 2006 +0000
@@ -87,8 +87,8 @@
     $Cf->From($Cf->from)		    unless $Cf->From;
     $Cf->To($Cf->to)			    unless $Cf->To;
 
-    $Cf->Helo(map { s/[<>]//g; $_ } (split/@/, $Cf->from||"")[1] || HOSTNAME)	    
-					    unless $Cf->Helo;
+    $Cf->Helo(map { (my $x = $_) =~ s/[<>]//g; $x } (split/@/, $Cf->from||"")[1] || HOSTNAME)
+	unless $Cf->Helo;
     $Cf->dst(addr(HOSTNAME))		    unless $Cf->dst;