Add quietening env var option to pm_to_blib in ExtUtils::Install
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 3 Jun 2014 20:16:48 +0000 (21:16 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 3 Jun 2014 21:04:03 +0000 (22:04 +0100)
cpan/ExtUtils-MakeMaker/t/pm_to_blib.t
dist/ExtUtils-Install/lib/ExtUtils/Install.pm
dist/ExtUtils-Install/t/Install.t
dist/ExtUtils-Install/t/Installapi2.t

index b9c5ddf..d1b153c 100644 (file)
@@ -22,6 +22,7 @@ my $perl     = which_perl();
 my $makefile = makefile_name();
 my $make     = make_run();
 
+local $ENV{PERL_INSTALL_QUIET};
 
 # Setup our test environment
 {
index eec57aa..83d4dbc 100644 (file)
@@ -38,11 +38,11 @@ ExtUtils::Install - install files from here to there
 
 =head1 VERSION
 
-1.67
+1.68
 
 =cut
 
-$VERSION = '1.67';  # <-- do not forget to update the POD section just above this line!
+$VERSION = '1.68';  # <-- do not forget to update the POD section just above this line!
 $VERSION = eval $VERSION;
 
 =pod
@@ -1171,6 +1171,9 @@ output the new module contents.
 You can have an environment variable PERL_INSTALL_ROOT set which will
 be prepended as a directory to each installed file (and directory).
 
+By default verbose output is generated, setting the PERL_INSTALL_QUIET
+environment variable will silence this output.
+
 =cut
 
 sub pm_to_blib {
@@ -1179,7 +1182,7 @@ sub pm_to_blib {
     _mkpath($autodir,0,0755);
     while(my($from, $to) = each %$fromto) {
         if( -f $to && -s $from == -s $to && -M $to < -M $from ) {
-            print "Skip $to (unchanged)\n";
+            print "Skip $to (unchanged)\n" unless $ENV{PERL_INSTALL_QUIET};
             next;
         }
 
@@ -1192,7 +1195,7 @@ sub pm_to_blib {
                              $from =~ /\.pm$/;
 
         if (!$need_filtering && 0 == compare($from,$to)) {
-            print "Skip $to (unchanged)\n";
+            print "Skip $to (unchanged)\n" unless $ENV{PERL_INSTALL_QUIET};
             next;
         }
         if (-f $to){
@@ -1206,7 +1209,7 @@ sub pm_to_blib {
             print "$pm_filter <$from >$to\n";
         } else {
             _copy( $from, $to );
-            print "cp $from $to\n";
+            print "cp $from $to\n" unless $ENV{PERL_INSTALL_QUIET};
         }
         my($mode,$atime,$mtime) = (stat $from)[2,8,9];
         utime($atime,$mtime+$Is_VMS,$to);
index f6af4a7..1e2f669 100644 (file)
@@ -37,6 +37,8 @@ END {
 
 chdir 'Big-Dummy';
 
+local $ENV{PERL_INSTALL_QUIET};
+
 my $stdout = tie *STDOUT, 'TieOut';
 pm_to_blib( { 'lib/Big/Dummy.pm' => 'blib/lib/Big/Dummy.pm' },
             'blib/lib/auto'
index 001f21e..9719493 100644 (file)
@@ -33,8 +33,9 @@ END {
 }
 # ensure the env doesn't pollute our tests
 local $ENV{EU_INSTALL_ALWAYS_COPY};
-local $ENV{EU_ALWAYS_COPY};    
-    
+local $ENV{EU_ALWAYS_COPY};
+local $ENV{PERL_INSTALL_QUIET};
+
 chdir 'Big-Dummy';
 
 my $stdout = tie *STDOUT, 'TieOut';