Browse Source

fix warnings

Eric Herman 5 years ago
parent
commit
9ff0b6298a
1 changed files with 2 additions and 2 deletions
  1. 2 2
      lib/HBase/JSONRest.pm

+ 2 - 2
lib/HBase/JSONRest.pm

@ -408,8 +408,8 @@ sub _extract_error_tiny {
408 408
    my $res = shift;
409 409
410 410
    return if $res->{success};
411
    return if $res->{status} == 404;
412
    my $msg = $res->{reason};
411
    return if ($res->{status} || 0) == 404;
412
    my $msg = $res->{reason} || "";
413 413
414 414
    my ($exception, $info) = $msg =~ m{\.([^\.]+):(.*)$};
415 415
    if ($exception) {