[sf-perl] need quick turnaround on this...

David Alban extasia at extasia.org
Tue Oct 11 09:53:14 PDT 2011


$ uname -a ; perl -v
Linux xxxxxxx 2.6.18-92.1.18.el5 #1 SMP Wed Nov 5 09:00:19 EST 2008
x86_64 x86_64 x86_64 GNU/Linux

This is perl, v5.8.8 built for x86_64-linux-thread-multi

also, 144 is the line it's complaining about (Subroutine
XML::Parser::Lite::_parse_re redefined at
/nas/reg/lib/perl/XML/Parser/Lite.pm line 144.):

    128 sub _parse_re {
    129     use re "eval";
    130     undef $^R;
    131     no strict 'refs';
    132     1 while $_[0] =~ m{$REGEXP}go
    133 };
    134
    135 # fixup regex if it does not work...
    136 {
    137     if (not eval { _parse_re('<soap:foo
xmlns:soap="foo">bar</soap:foo>'); 1; } ) {
    138         $REGEXP = _regexp();
    139         local $^W;
    140         *_parse_re = sub {
    141                 use re "eval";
    142                 undef $^R;
    143                 1 while $_[0] =~ m{$REGEXP}go
    144             };
    145     }
    146 }

thanks!

On Tue, Oct 11, 2011 at 9:48 AM, Francisco Obispo <fobispo at isc.org> wrote:
> which perl version are you using?

-- 
Live in a world of your own, but always welcome visitors.
***
Just say NO to a police state:
http://www.nytimes.com/2011/09/13/opinion/protect-our-right-to-anonymity.html


More information about the SanFrancisco-pm mailing list