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 $value = shift;
|
||||
if ( !defined $value ) {
|
||||
return if !$self->{body};
|
||||
return keys %{ $self->{body} } if wantarray;
|
||||
return { %{ $self->{body} } };
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue