Change 29403 by [EMAIL PROTECTED] on 2006/11/28 13:32:26
Subject: [PATCH 5.8.8] perl5db on miniperl
From: Ilya Zakharevich <[EMAIL PROTECTED]>
Date: Tue, 28 Nov 2006 03:39:05 -0800
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/perl5db.pl#122 edit
Differences ...
==== //depot/perl/lib/perl5db.pl#122 (text) ====
Index: perl/lib/perl5db.pl
--- perl/lib/perl5db.pl#121~29380~ 2006-11-25 14:19:14.000000000 -0800
+++ perl/lib/perl5db.pl 2006-11-28 05:32:26.000000000 -0800
@@ -498,7 +498,7 @@
package DB;
-use IO::Handle;
+BEGIN {eval 'use IO::Handle'}; # Needed for flush only? breaks under miniperl
# Debugger for Perl 5.00x; perl5db.pl patch level:
$VERSION = 1.28;
@@ -3427,8 +3427,10 @@
$onetimedumpDepth = undef;
}
elsif ( $term_pid == $$ ) {
- STDOUT->flush();
- STDERR->flush();
+ eval { # May run under miniperl, when not available...
+ STDOUT->flush();
+ STDERR->flush();
+ };
# XXX If this is the master pid, print a newline.
print $OUT "\n";
End of Patch.
