Em Qua, 2003-07-30 ās 18:14, Mark escreveu:
[...]
> sub check_for_blackholed_recipients {
>     local $_;
>     my ($self) = @_;
>    ($_ = $self->get('ToCc')) =~ s/\(.*?\)//g;
>     return (check_for_blackholes ((m/([EMAIL PROTECTED](?:[\w.-]+\.)+\w+)/g)));
> }

BTW, you don't need to localize $_ .
$_ is already localized per block {}.

Also, assuming that all perl aplications are under "use strict;" there
is no need to use "local" at all. ;)

[]'s
Raul Dias




-------------------------------------------------------
This SF.Net email sponsored by: Free pre-built ASP.NET sites including
Data Reports, E-commerce, Portals, and Forums are available now.
Download today and enter to win an XBOX or Visual Studio .NET.
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01
_______________________________________________
Spamassassin-talk mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/spamassassin-talk

Reply via email to