[ic] Perl & IC upgrade = old problem resurfacing *SOLVED*

[Grant]

--- Grant <emailgrant123b at yahoo.com> wrote:
> 
> --- Kevin Walsh <kevin at cursor.biz> wrote:
> > Grant [emailgrant123b at yahoo.com] wrote:
> > > File does not exist: 500 Bizarre copy of ARRAY
> in
> > > sassign
> > > 
> > > File does not exist: 500 SSL read timeout
> > > 
> > > File does not exist: 500 Connect failed:
> connect:
> > > Interrupted system call; Interrupted system call
> > > 
> > > File does not exist: 500 read failed:
> > > 
> > > Does anyone have any idea why a Perl and IC
> > upgrade
> > > (5.0) would cause this kind of problem?  Any
> kind
> > of
> > > clues, pointers, or advice would be greatly
> > > appreciated.
> > > 
> > When you start Interchange with 5.8.3, be sure to
> > include the following
> > in the environment:
> > 
> >     PERL_SIGNALS=unsafe
> 
> It turns out the Perl installed was 5.8.2.
> 
> I've posted to a Perl group about this.  It seems
> like
> the XML::Simple processing is taking place when it
> shouldn't based on this:
> 
> if ($response) {
> *XML::Simple processing*
> }
> else {
> *processing*
> }
> 
> - Grant

This problem was solved by changing the above code to
this:

if ($response =~ /^<\?xml/ ) {
*XML::Simple processing*
}
else {
*processing*
}

It turns out the crash-causing response I was
intermittently getting wasn't blank and looks like
this:

500 Can't connect to api.ebay.com:443 (Bad hostname
'api.ebay.com')

For some reason, the original code worked until Perl
and IC were upgraded.

I posted 4 eBay UserTags a little while back and this
change affects all of them.  If anyone is using any of
those tags, change the following line:

if ($response) {

to this:

if ($response =~ /^<\?xml/ ) {

I'm going to start a separate thread about that for
the archives.

- Grant

__________________________________
Do you Yahoo!?
Yahoo! Finance Tax Center - File online. File on time.
http://taxes.yahoo.com/filing.html