e-smith-email/sme7/e-smith-email-5.0.0-FixLocalNetworkOnlyBoxTypo.patch

diff -up e-smith-email-5.0.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/pseudonyms.pm.FixLocalNetworkOnlyBoxTypo e-smith-email-5.0.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/pseudonyms.pm
--- e-smith-email-5.0.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/pseudonyms.pm.FixLocalNetworkOnlyBoxTypo   2011-03-15 09:45:24.000000000 +0000
+++ e-smith-email-5.0.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/pseudonyms.pm      2011-03-15 09:48:13.000000000 +0000
@@ -214,7 +214,7 @@ sub performModifyPseudonym {
         else { $accounts->get($pseudonym)->delete_prop('Visible'); }
     }
 
-    $accounts->get($pseudonym)->merge_prop(%props)
+    $accounts->get($pseudonym)->merge_props(%props)
         or $msg = "Error occurred while modifying pseudonym in database.";
 
     # Untaint $pseudonym before use in system()
1	diff -up e-smith-email-5.0.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/pseudonyms.pm.FixLocalNetworkOnlyBoxTypo e-smith-email-5.0.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/pseudonyms.pm
2	--- e-smith-email-5.0.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/pseudonyms.pm.FixLocalNetworkOnlyBoxTypo 2011-03-15 09:45:24.000000000 +0000
3	+++ e-smith-email-5.0.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/pseudonyms.pm 2011-03-15 09:48:13.000000000 +0000
4	@@ -214,7 +214,7 @@ sub performModifyPseudonym {
5	else { $accounts->get($pseudonym)->delete_prop('Visible'); }
6	}
7
8	- $accounts->get($pseudonym)->merge_prop(%props)
9	+ $accounts->get($pseudonym)->merge_props(%props)
10	or $msg = "Error occurred while modifying pseudonym in database.";
11
12	# Untaint $pseudonym before use in system()