several bug fixes

This commit is contained in:
JT Smith 2006-04-10 03:47:39 +00:00
parent 08d0efe060
commit 1f6a6a2ba1
3 changed files with 11 additions and 6 deletions

View file

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