[Israel.pm] Perl Advocacy

Levenglick Dov-RM07994 DovL at freescale.com
Wed Dec 29 22:43:09 PST 2004


As I said, I hadnt tested it and I wrote it in 3 minutes. You are obviously right, it should have been @$orig

Levenglick Dov-RM07994  wrote:
> This is obviously an extremely ugly implementation, however 
> (and I havent tested it) should do the job.
> 
Thanks!

>        if (ref($replace) eq 'SCALAR') {
>                $temp = join '|', @$replace;
>                $$str =~ s/($temp)/$$replace/g;
>        }
Shouldn't this be : $temp = join '|', @$orig; ?





More information about the Perl mailing list