e-smith-quota/sme8/e-smith-quota-2.2.0-ExponentDeclarationTypo.patch

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);
1	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
2	--- 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
3	+++ 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
4	@@ -284,7 +284,7 @@
5	{
6	return $self->error('HARD_VAL_MUST_BE_NUMBER', 'Initial');
7	}
8	- my $exponent = 1; # Entries with no suffix are assumed to be in megabytes.
9	+ $exponent = 1; # Entries with no suffix are assumed to be in megabytes.
10	if (defined ($2))
11	{
12	$exponent = index("KMGT",$2);