Perl Error #280
This commit is contained in:
parent
4d20ffea0c
commit
2861883432
1 changed files with 1 additions and 1 deletions
|
@ -319,7 +319,7 @@ sub hr_bytes {
|
||||||
# Calculates the parameter passed in bytes, then rounds it to the nearest integer
|
# Calculates the parameter passed in bytes, then rounds it to the nearest integer
|
||||||
sub hr_bytes_rnd {
|
sub hr_bytes_rnd {
|
||||||
my $num = shift;
|
my $num = shift;
|
||||||
|
return "0B" unless defined($num) ;
|
||||||
return "0B" if $num eq "NULL" ;
|
return "0B" if $num eq "NULL" ;
|
||||||
|
|
||||||
if ( $num >= ( 1024**3 ) ) { #GB
|
if ( $num >= ( 1024**3 ) ) { #GB
|
||||||
|
|
Loading…
Reference in a new issue