Skip to content

Commit 31c0252

Browse files
committed
RT#133762 Explicitly print to STDOUT in EUMM.pm
1 parent 7b7ea54 commit 31c0252

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

lib/ExtUtils/MakeMaker.pm

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1032,7 +1032,7 @@ sub _parse_line {
10321032
}
10331033

10341034
sub check_manifest {
1035-
print "Checking if your kit is complete...\n";
1035+
print STDOUT "Checking if your kit is complete...\n";
10361036
require ExtUtils::Manifest;
10371037
# avoid warning
10381038
$ExtUtils::Manifest::Quiet = $ExtUtils::Manifest::Quiet = 1;
@@ -1230,15 +1230,15 @@ sub flush {
12301230
my $self = shift;
12311231

12321232
my $finalname = $self->{MAKEFILE};
1233-
printf "Generating a %s %s\n", $self->make_type, $finalname if $Verbose || !$self->{PARENT};
1234-
print "Writing $finalname for $self->{NAME}\n" if $Verbose || !$self->{PARENT};
1233+
printf STDOUT "Generating a %s %s\n", $self->make_type, $finalname if $Verbose || !$self->{PARENT};
1234+
print STDOUT "Writing $finalname for $self->{NAME}\n" if $Verbose || !$self->{PARENT};
12351235

12361236
unlink($finalname, "MakeMaker.tmp", $Is_VMS ? 'Descrip.MMS' : ());
12371237

12381238
write_file_via_tmp($finalname, $self->{RESULT});
12391239

12401240
# Write MYMETA.yml to communicate metadata up to the CPAN clients
1241-
print "Writing MYMETA.yml and MYMETA.json\n"
1241+
print STDOUT "Writing MYMETA.yml and MYMETA.json\n"
12421242
if !$self->{NO_MYMETA} and $self->write_mymeta( $self->mymeta );
12431243

12441244
# save memory

0 commit comments

Comments
 (0)