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
