Skip Menu |

This queue is for tickets about the IPDR CPAN distribution.

Report information
The Basics
Id: 65913
Status: open
Priority: 0/
Queue: IPDR
People
Owner: Nobody in particular
Requestors: pawel.golaszewski [...] tsspg.pl
Cc:
AdminCc:
Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)

History Show all quoted text
  Sat Feb 19 11:10:02 2011 pawel.golaszewski [...] tsspg.pl - Ticket created
Subject: Not a SCALAR reference at ...perl/5.8.8//IPDR/Collection/Client.pm line 731
Date: Sat, 19 Feb 2011 17:09:47 +0100
To: bug-IPDR [...] rt.cpan.org
From: pawel.golaszewski [...] tsspg.pl
Hi, When I was trying to use IPDR.client I get the following error: Not a SCALAR reference at ${HOME}/perl/share/perl/5.8.8//IPDR/Collection/Client.pm line 731. so I changed two lines in file that was get from http://cpansearch.perl.org/src/SHAMROCK/IPDR-0.29/lib/IPDR/Collection/Client.pm the lines before change has: "if ( open (__FILE,">".$self->{_GLOBAL}{'XMLDirectory'}."/".$$self->{_GLOBAL}{'ServerIP'} ) )" after change: "if ( open (__FILE,">".$self->{_GLOBAL}{'XMLDirectory'}."/".$self->{_GLOBAL}{'ServerIP'} ) )" (I changed $$ to $) I also removed: "if ( !$self->test_64_bit() ) { # if you forgot to run make test, this will clobber # your run anyway. die '64Bit support not available must stop.'; } " Does this function test if the system is 64bit? Regards Pawel
  Sat Feb 19 15:41:32 2011 shamrock [...] cpan.org - Correspondence added
On Sat Feb 19 11:10:02 2011, pawel.golaszewski@tsspg.pl wrote: Show quoted text
> Hi, > > When I was trying to use IPDR.client I get the following error: > Not a SCALAR reference at > ${HOME}/perl/share/perl/5.8.8//IPDR/Collection/Client.pm line 731. > > so I changed two lines in file that was get from > http://cpansearch.perl.org/src/SHAMROCK/IPDR- > 0.29/lib/IPDR/Collection/Client.pm > > the lines before change has: > "if ( open > (__FILE,">".$self->{_GLOBAL}{'XMLDirectory'}."/".$$self-
> >{_GLOBAL}{'ServerIP'}
> ) )" > > after change: > "if ( open > (__FILE,">".$self->{_GLOBAL}{'XMLDirectory'}."/".$self-
> >{_GLOBAL}{'ServerIP'}
> ) )" > > (I changed $$ to $) >
Thanks for the change and pointing out what you did. I will integrate this into the next release. Show quoted text
> I also removed: > > "if ( !$self->test_64_bit() ) > { > # if you forgot to run make test, this will clobber > # your run anyway. > die '64Bit support not available must stop.'; > } > " > > Does this function test if the system is 64bit?
If you remove the 64bit check the results may become unreliable. The IPDR specification is 64bit and testing on several IPDR systems, Motorola, Cisco and Aris show they provide 64bit results. This function is required as *many* reports have been noted that the results were incorrect however investigation showed the system running the code was not 64bit and thus failed to parse IPDR data correctly. I will post again when a new version is available. Shamrock
  Sat Feb 19 15:41:33 2011 The RT System itself - Status changed from 'new' to 'open'