70 |
+ my $exponent = 1; # Entries with no suffix are assumed to be in megabytes. |
+ my $exponent = 1; # Entries with no suffix are assumed to be in megabytes. |
71 |
+ if (defined ($2)) |
+ if (defined ($2)) |
72 |
+ { |
+ { |
73 |
+ $exponent = index("KMGT",$2); |
+ $exponent = index("kmgt",lc($2)); |
74 |
+ } |
+ } |
75 |
+ $softlim = ($value * 1024 ** $exponent); |
+ $softlim = ($value * 1024 ** $exponent); |
76 |
|
|
102 |
+ my $exponent = 1; # Entries with no suffix are assumed to be in megabytes. |
+ my $exponent = 1; # Entries with no suffix are assumed to be in megabytes. |
103 |
+ if (defined ($2)) |
+ if (defined ($2)) |
104 |
+ { |
+ { |
105 |
+ $exponent = index("KMGT",$2); |
+ $exponent = index("kmgt",lc($2)); |
106 |
+ } |
+ } |
107 |
+ $hardlim = ($value * 1024 ** $exponent); |
+ $hardlim = ($value * 1024 ** $exponent); |
108 |
|
|