fixed pseudorequest "Cannot use undefined value as a HASH reference"
This commit is contained in:
parent
3105b27034
commit
de47c22eff
1 changed files with 1 additions and 0 deletions
|
|
@ -232,6 +232,7 @@ sub body {
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
my $value = shift;
|
my $value = shift;
|
||||||
if ( !defined $value ) {
|
if ( !defined $value ) {
|
||||||
|
return if !$self->{body};
|
||||||
return keys %{ $self->{body} } if wantarray;
|
return keys %{ $self->{body} } if wantarray;
|
||||||
return { %{ $self->{body} } };
|
return { %{ $self->{body} } };
|
||||||
}
|
}
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue