diff options
author | Chris Wilson <chris+github@qwirx.com> | 2008-11-11 00:26:11 +0000 |
---|---|---|
committer | Chris Wilson <chris+github@qwirx.com> | 2008-11-11 00:26:11 +0000 |
commit | e5fe9cdeecdb366529fb9d59f5f7d99b78e38dbf (patch) | |
tree | 6d7a7d66b469ac4070361b35b3db5dc2e9da03cf /contrib | |
parent | 6e248f0e7a310e2e61dd1670a8ea55dd1262fd08 (diff) |
Additional debugging for value format error reported by Scott McNee.
Diffstat (limited to 'contrib')
-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; |