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
|
||||
sub hr_bytes_rnd {
|
||||
my $num = shift;
|
||||
|
||||
return "0B" unless defined($num) ;
|
||||
return "0B" if $num eq "NULL" ;
|
||||
|
||||
if ( $num >= ( 1024**3 ) ) { #GB
|
||||
|
|
Loading…
Reference in a new issue