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	wellsi	1.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);