summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/ExtUtils/Install.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/ExtUtils/Install.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/ExtUtils/Install.pm14
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);