diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/CPANPLUS/Error.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/CPANPLUS/Error.pm | 7 |
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; |