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