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()