| Subject: | Warning message |
Hello
I am getting this warning all the time from Cassandra::Client (via DBD::Cassandra):
Use of uninitialized value $^GLOBAL_PHASE in string eq at /usr/local/share/perl5/Cassandra/Client.pm line 396.
$ perl -v
This is perl, v5.10.1 (*) built for i386-linux-thread-multi
I would suggest that this code:
sub DESTROY {
local $@;
return if ${^GLOBAL_PHASE} eq 'DESTRUCT';
my $self= shift;
if ($self->{connected}) {
$self->shutdown;
}
}
Needs a slight change to:
sub DESTROY {
local $@;
return if (${^GLOBAL_PHASE} and ${^GLOBAL_PHASE} eq 'DESTRUCT');
my $self= shift;
if ($self->{connected}) {
$self->shutdown;
}
}
But, as they say in recipe books: add salt to taste.