e-smith-email/sme8/e-smith-email-4.16.0-danglingpseudonyms.patch

diff -Nur -x '*.orig' -x '*.rej' e-smith-email-4.16.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/pseudonyms.pm mezzanine_patched_e-smith-email-4.16.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/pseudonyms.pm
--- e-smith-email-4.16.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/pseudonyms.pm     2006-03-15 06:23:58.000000000 +1100
+++ mezzanine_patched_e-smith-email-4.16.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/pseudonyms.pm   2006-04-05 14:50:00.862838246 +1000
@@ -304,6 +304,16 @@
         if ($account->prop('type') eq "pseudonym") {
             my $target = $accounts->get($account->prop('Account'));
 
+            unless ($target)
+            {
+                warn "WARNING: pseudonym (" 
+                       . $account->key 
+                       . ") => missing Account(" 
+                       . $account->prop('Account') 
+                       . ")\n";
+                next;
+            }
+
             $existingAccounts{$account->key} = $account->key 
                 unless ($target->prop('type') eq "pseudonym");
         }
1	diff -Nur -x '.orig' -x '.rej' e-smith-email-4.16.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/pseudonyms.pm mezzanine_patched_e-smith-email-4.16.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/pseudonyms.pm
2	--- e-smith-email-4.16.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/pseudonyms.pm 2006-03-15 06:23:58.000000000 +1100
3	+++ mezzanine_patched_e-smith-email-4.16.0/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/pseudonyms.pm 2006-04-05 14:50:00.862838246 +1000
4	@@ -304,6 +304,16 @@
5	if ($account->prop('type') eq "pseudonym") {
6	my $target = $accounts->get($account->prop('Account'));
7
8	+ unless ($target)
9	+ {
10	+ warn "WARNING: pseudonym ("
11	+ . $account->key
12	+ . ") => missing Account("
13	+ . $account->prop('Account')
14	+ . ")\n";
15	+ next;
16	+ }
17	+
18	$existingAccounts{$account->key} = $account->key
19	unless ($target->prop('type') eq "pseudonym");
20	}