diff options
| -rw-r--r-- | lib/Net/Cmd.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Net/Cmd.pm b/lib/Net/Cmd.pm index 61e6956..b5abea2 100644 --- a/lib/Net/Cmd.pm +++ b/lib/Net/Cmd.pm @@ -195,7 +195,7 @@ sub set_status { my $cmd = shift; my ($code, $resp) = @_; - $resp = [$resp] + $resp = defined $resp ? [$resp] : [] unless ref($resp); (${*$cmd}{'net_cmd_code'}, ${*$cmd}{'net_cmd_resp'}) = ($code, $resp); |