e-smith-email/sme10/e-smith-email-5.6.0-bz11799.patch

diff -Nur --no-dereference e-smith-email-5.6.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/pseudonyms.pm e-smith-email-5.6.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/pseudonyms.pm
--- e-smith-email-5.6.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/pseudonyms.pm      2022-04-16 12:23:00.053000000 -0400
+++ e-smith-email-5.6.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/pseudonyms.pm  2022-04-16 12:29:27.603000000 -0400
@@ -283,6 +283,7 @@
     #TODO: is it ->delete or get()->delete
     foreach my $p_rec (@pseudonyms) {
         if ($p_rec->prop("Account") eq $pseudonym) {
+            next unless $p_rec->type eq "pseudonym-deleted";
             $accounts->get($p_rec->key)->delete()
                 or $msg = "Error occurred while deleting pseudonym from database.";
         }
1	jpp	1.1	diff -Nur --no-dereference e-smith-email-5.6.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/pseudonyms.pm e-smith-email-5.6.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/pseudonyms.pm
2			--- e-smith-email-5.6.0.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/pseudonyms.pm 2022-04-16 12:23:00.053000000 -0400
3			+++ e-smith-email-5.6.0/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/pseudonyms.pm 2022-04-16 12:29:27.603000000 -0400
4			@@ -283,6 +283,7 @@
5			#TODO: is it ->delete or get()->delete
6			foreach my $p_rec (@pseudonyms) {
7			if ($p_rec->prop("Account") eq $pseudonym) {
8			+ next unless $p_rec->type eq "pseudonym-deleted";
9			$accounts->get($p_rec->key)->delete()
10			or $msg = "Error occurred while deleting pseudonym from database.";
11			}