501 return code

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 '\cG\c@\cH\c@' is not supported\cJ"

...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

Re: 501 return code

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 '\cG\c@\cH\c@' 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

Re: 501 return code

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 '\cG\c@\cH\c@' 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

Re: 501 return code

...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 '\cG\c@\cH\c@' 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