diff -ruN e-smith-quota-2.2.0.old/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/quota.pm e-smith-quota-2.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/quota.pm
--- e-smith-quota-2.2.0.old/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/quota.pm	2011-03-11 16:36:11.000000000 +0000
+++ e-smith-quota-2.2.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/quota.pm	2011-03-11 16:38:18.000000000 +0000
@@ -284,7 +284,7 @@
     {
 	return $self->error('HARD_VAL_MUST_BE_NUMBER', 'Initial');
     }
-   my $exponent = 1; # Entries with no suffix are assumed to be in megabytes.
+   $exponent = 1; # Entries with no suffix are assumed to be in megabytes.
    if (defined ($2)) 
    { 
    	$exponent = index("KMGT",$2);