summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/CPANPLUS/Error.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CPANPLUS/Error.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/CPANPLUS/Error.pm7
1 files changed, 6 insertions, 1 deletions
diff --git a/Master/tlpkg/tlperl/lib/CPANPLUS/Error.pm b/Master/tlpkg/tlperl/lib/CPANPLUS/Error.pm
index 38710a8a857..c42435f1922 100644
--- a/Master/tlpkg/tlperl/lib/CPANPLUS/Error.pm
+++ b/Master/tlpkg/tlperl/lib/CPANPLUS/Error.pm
@@ -100,7 +100,9 @@ BEGIN {
}
sub flush {
- return reverse $log->flush;
+ my @foo = $log->flush;
+ return unless @foo;
+ return reverse @foo;
}
sub stack {
@@ -133,7 +135,10 @@ printed. This defaults to C<*STDERR>.
This is the filehandle all the messages sent to C<msg()> are being
printed. This default to C<*STDOUT>.
+=back
+
=cut
+
local $| = 1;
$ERROR_FH = \*STDERR;
$MSG_FH = \*STDOUT;