..didn't seem to post first time, sorry if this double posts. On Thu, 2006-03-30 at 15:42 -0600, Scott T. Hildreth wrote:
Never mind, this appears to be an re bug, when running in the debugger http://minaret.biz/tips/perl.html ...I am running 5.8.7 on this server, which is listed in the above link. Sorry to Bother. > > On Thu, 2006-03-30 at 15:32 -0600, Scott T. Hildreth wrote: > > On Fri, 2005-08-19 at 16:49 -0500, Scott T. Hildreth wrote: > > > I have code that posts xml data to a http server (Tomcat). > > > Which works perfectly with perl 5.6.2, not with perl 5.8.?. > > > For a work around I have 5.6.2 installed and running the code, but > > > now I would like to figure out why this is not working with Perl 5.8 . > > > When I send the request, I get- > > > > > > DB<3> x $res > > > 0 HTTP::Response=HASH(0x89a7f78) > > > '_content' => "501 Protocol scheme '[EMAIL PROTECTED]@' is not > > > supported\cJ" > > > > Well, this happened again, I get 'nulls' (as posted originally) or I got > > this > > msg today, dumping the response object : > > > > '_content' => '501 Protocol scheme \'\' is not supported > > > > I traced this down to URI.pm, the _scheme method, > > > > 151: unless (@_) { > > 152==>b return unless $$self =~ /^($scheme_re):/o; > > 153: return $1; > > 154 } > > > > I print to see $scheme_re = '[a-zA-Z][a-zA-Z0-9.+\\-]*' > > > > DB<39> p $$self =~ /^($scheme_re):/o; > > http > > > > ...so the regex is working, yet $1 is not captured > > > > 153: return $1; > > DB<40> x $1 > > 0 (basically not printable chars) > > > > ...and here is a dump of $$self, > > > > DB<41> x $$self > > 0 'http://192.168.1.100:8080/OTools/Dispatcher' > > > > > > ..I'm at a loss, does anyone have any ideas why this is happening? > > > > Thanks. > > > > > > > > ..like I stated earlier, this works with 5.6.2. I am not sure what has > > > changed with Perl 5.8.* and what I need to do different. Any ideas? > > > > > > > > > Thanks, > > > STH -- Scott T. Hildreth <[EMAIL PROTECTED]>
