diff -Nur -x '*.orig' -x '*.rej' smeserver-ezmlm-web-1.1.2/root/etc/e-smith/events/actions/ezmlm-update mezzanine_patched_smeserver-ezmlm-web-1.1.2/root/etc/e-smith/events/actions/ezmlm-update
--- smeserver-ezmlm-web-1.1.2/root/etc/e-smith/events/actions/ezmlm-update	2006-03-08 12:30:00.616124755 +1100
+++ mezzanine_patched_smeserver-ezmlm-web-1.1.2/root/etc/e-smith/events/actions/ezmlm-update	2006-03-08 12:29:41.228469581 +1100
@@ -51,7 +51,7 @@
 		-s /bin/false ezmlm)) == 0
 	    or warn("Could not create user 'ezmlm'\n");
 
-    $accounts->new_record("ezmlm", { type => "system", Uid => "80", Gid => "80" } );
+    $accounts->new_record("ezmlm", { type => "system", Uid => "80", Gid => "80" } )
 	unless ($accounts->get("ezmlm"));
 }
 
@@ -84,22 +84,22 @@
 
 if ( $event eq "mailinglist-create" )
 {
-    my $list = new Mail::Ezmlm;
+    my $ezmlm = new Mail::Ezmlm;
     
-    my $thislist = $list->make(
+    my $thislist = $ezmlm->make(
 		-dir      => $listHome,
                 -qmail    => $listAlias,
                 -name     => $listName,
                 -host     => $listHost,
                 -user     => '',
-                -switches => 'aBdfgHiJklMnOpQrStuWx'
+                -switches => 'aBdfgHiJklMnOpQrStuWx',
 		);
 
     die "List creation failed\n" unless $thislist;
 
     my $listOwner = $list->prop("Owner");
 
-    $list->update("5 $listOwner");
+    $ezmlm->update("5 $listOwner");
 }
 elsif ( $event eq "mailinglist-delete" )
 {