| Subject: | 64Bit support not available must stop. |
When using the example code for IPDR::Collection::Client, I get the
error "64Bit support not available must stop." when trying to connect to
a Motorola 64K.
#!/usr/local/bin/perl
use strict;
use IPDR::Collection::Client;
my $ipdr_client = new IPDR::Collection::Client (
[
VendorID => 'IPDR Client',
ServerIP => '10.191.253.17',
ServerPort => '4737',
KeepAlive => 60,
Capabilities => 0x01,
DataHandler => \&display_data,
Timeout => 2,
]
);
# We send a connect message to the IPDR server
$ipdr_client->connect();
# If we do not connect stop.
if ( !$ipdr_client->connected )
{
print "Can not connect to destination.\n";
exit(0);
}
# We now send a connect message
$ipdr_client->check_data_available();
print "Error was '".$ipdr_client->get_error()."'\n";
exit(0);
sub display_data
{
my ( $remote_ip ) = shift;
my ( $remote_port ) = shift;
my ( $data ) = shift;
my ( $self ) = shift;
foreach my $sequence ( sort { $a<=>$b } keys %{$data} )
{
print "Sequence is '$sequence'\n";
foreach my $attribute ( keys %{${$data}{$sequence}} )
{
print "Sequence '$sequence' attribute '$attribute'";
print " value '${$data}{$sequence}{$attribute}'\n";
}
}
}
output:
perl ipdr_test.pl
64Bit support not available must stop. at
/usr/lib/perl5/site_perl/5.8.8/IPDR/Collection/Client.pm line 920.
Commenting out the following lines from the above file seemed to have
worked:
#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.';
# }