Fixes in php-pool-dirs action script

root/etc/e-smith/events/actions/php-pool-dirs

@@ -18,17 +18,19 @@ die "$pool not found in the account database\n" unless $acc;
 
 my $dyn = $acc->prop('DynamicContent') || 'disabled';
 
-if ($acc =~ m/^enabled|on|1|yes$/ && $event ne 'share-delete'){
+if ($dyn =~ m/^enabled|on|1|yes$/ && $event ne 'share-delete'){
-  make_path( qw( /var/log/php/$pool
+  my @dirs = ( "/var/log/php/$pool",
-                 /var/lib/php/$pool/session
+               "/var/lib/php/$pool/session",
-                 /var/lib/php/$pool/wsdlcache
+               "/var/lib/php/$pool/wsdlcache",
-                 /var/lib/php/$pool/opcache
+               "/var/lib/php/$pool/opcache",
-                 /var/lib/php/$pool/tmp ), {
+               "/var/lib/php/$pool/tmp" );
-    chmode => 0770,
+  make_path( @dirs, {
     owner => 'root',
     group => 'www'
   });
+  chmod 0770, @dirs;
 }
 else{
-  remote_tree( qw(/var/log/php/$pool /var/lib/php/$pool/) );
+  remove_tree( ( "/var/log/php/$pool",
+                 " /var/lib/php/$pool/" ) );
 }