check for valid data before decoding from JSON, undef still exists

This commit is contained in:
Colin Kuskie 2008-09-07 23:15:14 +00:00
parent cbc830123a
commit b65c7d4d12

View file

@ -151,7 +151,7 @@ sub get {
my $self = shift;
my $name = shift;
if ($name eq "parameters") {
if (exists $self->{_data}{parameters}) {
if ($self->{_data}{parameters}) {
my $parameters = JSON::decode_json($self->{_data}{$name});
return $parameters->{parameters};
}