diff -Nur -x '*.orig' -x '*.rej' smeserver-shared-folders-0.1/root/etc/e-smith/events/actions/share-modify mezzanine_patched_smeserver-shared-folders-0.1/root/etc/e-smith/events/actions/share-modify
--- smeserver-shared-folders-0.1/root/etc/e-smith/events/actions/share-modify	2009-04-08 11:55:18.000000000 +0200
+++ mezzanine_patched_smeserver-shared-folders-0.1/root/etc/e-smith/events/actions/share-modify	2009-05-17 20:11:46.000000000 +0200
@@ -76,6 +76,8 @@
 #--------------------------------------------------
 
 my %properties = $share->props;
+my @write = split(/[;,]/,($properties {'WriteGroups'} || 'admin'));
+my @read = split(/[;,]/,($properties {'ReadGroups'} || 'admin'));
 $::group = 'admin';
 
 # Make sensible defaults
@@ -96,10 +98,10 @@
 	if (-d)
 	{
 	    chmod $::dirperm, $_;
-	    foreach my $group (split(/[;,]/,($properties {'WriteGroups'} || 'admin'))){
+	    foreach my $group (@write){
 		$acl .= 'g:'.$group.':rwx,';
 	    }
-	    foreach my $group (split(/[;,]/,($properties {'ReadGroups'} || 'admin'))){
+	    foreach my $group (@read){
                 $acl .= 'g:'.$group.':rx,';
             }
 	    system($setfacl,
@@ -110,10 +112,10 @@
 	elsif (-f)
 	{
            chmod $::fileperm, $_;
-	   foreach my $group (split(/[;,]/,($properties {'WriteGroups'} || 'admin'))){
+	   foreach my $group (@write){
                $acl .= 'g:'.$group.':rw,';
            }
-           foreach my $group (split(/[;,]/,($properties {'ReadGroups'} || 'admin'))){
+           foreach my $group (@read){
                $acl .= 'g:'.$group.':r,';
            }
 	   system($setfacl,