# HG changeset patch
# User Matthias Förste <foerste@schlittermann.de>
# Date 1310986384 -7200
# Node ID 6c8364b81a827411bc067b9e4c114564fa7242ab
# Parent  9d0a1a1b70a735119a6f3f1758ef131042ef0284
suppress warning about possible attempt to use comma as a list element separator

diff -r 9d0a1a1b70a7 -r 6c8364b81a82 Build.PL
--- 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