diff options
| -rwxr-xr-x | contrib/bbadmin/accounts.cgi | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/bbadmin/accounts.cgi b/contrib/bbadmin/accounts.cgi index d98d4a7a..d68b82c6 100755 --- a/contrib/bbadmin/accounts.cgi +++ b/contrib/bbadmin/accounts.cgi @@ -345,7 +345,8 @@ print $cgi->Tr( sub human_format($) { my ($kb) = @_; - die unless $kb =~ /^(\d+) (kB)$/; + die "bad format in value: expected number followed by kB, " . + "found '$kb'" unless $kb =~ /^(\d+) (kB)$/; my $value = $1; my $units = $2; |