diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/ExtUtils/Mkbootstrap.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/ExtUtils/Mkbootstrap.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/ExtUtils/Mkbootstrap.pm b/Master/tlpkg/tlperl/lib/ExtUtils/Mkbootstrap.pm index b5f19ea95ce..f71655d6355 100644 --- a/Master/tlpkg/tlperl/lib/ExtUtils/Mkbootstrap.pm +++ b/Master/tlpkg/tlperl/lib/ExtUtils/Mkbootstrap.pm @@ -3,7 +3,7 @@ package ExtUtils::Mkbootstrap; # There's just too much Dynaloader incest here to turn on strict vars. use strict 'refs'; -our $VERSION = '6.63_02'; +our $VERSION = '6.66'; require Exporter; our @ISA = ('Exporter'); @@ -18,7 +18,7 @@ sub Mkbootstrap { my($baseext, @bsloadlibs)=@_; @bsloadlibs = grep($_, @bsloadlibs); # strip empty libs - print STDOUT " bsloadlibs=@bsloadlibs\n" if $Verbose; + print " bsloadlibs=@bsloadlibs\n" if $Verbose; # We need DynaLoader here because we and/or the *_BS file may # call dl_findfile(). We don't say `use' here because when @@ -50,8 +50,8 @@ sub Mkbootstrap { if (@all){ open my $bs, ">", "$baseext.bs" or die "Unable to open $baseext.bs: $!"; - print STDOUT "Writing $baseext.bs\n"; - print STDOUT " containing: @all" if $Verbose; + print "Writing $baseext.bs\n"; + print " containing: @all" if $Verbose; print $bs "# $baseext DynaLoader bootstrap file for $^O architecture.\n"; print $bs "# Do not edit this file, changes will be lost.\n"; print $bs "# This file was automatically generated by the\n"; |