[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