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	slords	1.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			}