fixed pseudorequest "Cannot use undefined value as a HASH reference"

This commit is contained in:
Doug Bell 2009-05-17 02:55:31 +00:00
parent 3105b27034
commit de47c22eff

View file

@ -232,6 +232,7 @@ sub body {
my $self = shift;
my $value = shift;
if ( !defined $value ) {
return if !$self->{body};
return keys %{ $self->{body} } if wantarray;
return { %{ $self->{body} } };
}