diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/ExtUtils/Install.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/ExtUtils/Install.pm | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/Master/tlpkg/tlperl/lib/ExtUtils/Install.pm b/Master/tlpkg/tlperl/lib/ExtUtils/Install.pm index eec57aa8b54..1e8ac4cd12b 100644 --- a/Master/tlpkg/tlperl/lib/ExtUtils/Install.pm +++ b/Master/tlpkg/tlperl/lib/ExtUtils/Install.pm @@ -38,11 +38,11 @@ ExtUtils::Install - install files from here to there =head1 VERSION -1.67 +2.04 =cut -$VERSION = '1.67'; # <-- do not forget to update the POD section just above this line! +$VERSION = '2.04'; # <-- do not forget to update the POD section just above this line! $VERSION = eval $VERSION; =pod @@ -113,6 +113,7 @@ my $Inc_uninstall_warn_handler; # install relative to here my $INSTALL_ROOT = $ENV{PERL_INSTALL_ROOT}; +my $INSTALL_QUIET = $ENV{PERL_INSTALL_QUIET}; my $Curdir = File::Spec->curdir; my $Updir = File::Spec->updir; @@ -1171,6 +1172,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 +1183,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 $INSTALL_QUIET; next; } @@ -1192,7 +1196,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 $INSTALL_QUIET; next; } if (-f $to){ @@ -1206,7 +1210,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 $INSTALL_QUIET; } my($mode,$atime,$mtime) = (stat $from)[2,8,9]; utime($atime,$mtime+$Is_VMS,$to); |