Subversion Repositories sa-exim

Compare Revisions

This comparison shows the changes necessary to convert path

→ /trunk/Greylisting.pm @ 41

→ /trunk/Greylisting.pm @ 40

↔ Reverse comparison
Compare Path: Rev

With Path: Rev

Ignore whitespace Rev 41 → Rev 40

 /trunk/Greylisting.pm
 ,8 → 160,6
             # work around bug in perl untaint in perl 5.8
             $envfrom=undef;
             $envfrom=$tmpvar;
-            $envfrom =~ s/^([a-z0-9._]*)[^@]*/$1/i;
             $rcptto  =~ tr/!#%()*+,-.0123456789:<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_abcdefghijklmnopqrstuvwxyz{|}~/_/c;
             $rcptto =~ /(.+)/;
             $tmpvar = ($1 or "");