Skip Menu |
 

This queue is for tickets about the Net-Cassandra CPAN distribution.

Report information
The Basics
Id: 60575
Status: new
Priority: 0/
Queue: Net-Cassandra

People
Owner: Nobody in particular
Requestors: dan-perl [...] drown.org
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 0.35
Fixed in: (no value)



Trying to call get_key_range against cassandra 0.6.4 generates an exception, which is expected (replaced with get_range_slices). What isn't expected is which exception it returns. Code used (from examples): eval { my $what = $client->get_key_range( 'Keyspace1', 'Standard1', '', '', 100, Net::Cassandra::Backend::ConsistencyLevel::QUORUM ); warn "Keys: ", join( ', ', @$what ); }; warn $@->why if $@; What it returns with stock Net::Cassandra 0.35: Can't locate object method "why" via package "Can't use string ("0") as a SCALAR ref while "strict refs" in use at /usr/local/share/perl5/Net/Cassandra/Backend/Thrift/BinaryProtocol.pm line 376. " (perhaps you forgot to load "Can't use string ("0") as a SCALAR ref while "strict refs" in use at /usr/local/share/perl5/Net/Cassandra/Backend/Thrift/BinaryProtocol.pm line 376. "?) at ./get_key_range line 24. Attached patch changes the read calls to use references and implements a simple why sub. What it returns after the patch: [1] Invalid method name: 'get_key_range' at ./get_key_range line 24.
Subject: TApplicationException.diff
--- Net/Cassandra/Backend/Thrift.pm.orig 2010-08-20 17:37:08.000000000 -0500 +++ Net/Cassandra/Backend/Thrift.pm 2010-08-20 17:29:55.000000000 -0500 @@ -93,11 +93,12 @@ my $ftype = 0; my $fid = 0; - $xfer += $input->readStructBegin($fname); + $xfer += $input->readStructBegin(\$fname); + while (1) { - $xfer += $input->readFieldBegin($fname, $ftype, $fid); + $xfer += $input->readFieldBegin($fname, \$ftype, \$fid); if ($ftype == Net::Cassandra::Backend::TType::STOP) { last; next; } @@ -107,7 +108,7 @@ /1/ && do{ if ($ftype == Net::Cassandra::Backend::TType::STRING) { - $xfer += $input->readString($self->{message}); + $xfer += $input->readString(\$self->{message}); } else { $xfer += $input->skip($ftype); } @@ -117,7 +118,7 @@ /2/ && do{ if ($ftype == Net::Cassandra::Backend::TType::I32) { - $xfer += $input->readI32($self->{code}); + $xfer += $input->readI32(\$self->{code}); } else { $xfer += $input->skip($ftype); } @@ -174,4 +175,11 @@ return $self->{code}; } +sub why +{ + my $self = shift; + + return "[".$self->{code}."] ".$self->{message}; +} + 1;


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.