--- a/Build.PL	Mon Jul 18 12:51:44 2011 +0200
+++ b/Build.PL	Mon Jul 18 12:53:04 2011 +0200
@@ -30,8 +30,10 @@
         my $u = my $g = ($h =~ m|/([^/]+)$|)[0];
         system(qw(chown -R), "$u:$g", $h) == 0
             or die "Can't 'chown -R $u:$g $h': $!";
-        system(qw(chmod -R go=,-st), $h) == 0
+        { no warnings 'qw';
+          system(qw(chmod -R go=,-st), $h) == 0
             or die "Can't 'chmod -R go=,-st $h";
+        }
         $self->SUPER::ACTION_install;
     }
 ___CODE