From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Tue, 28 Nov 2006 03:39:05 +0000 (-0800)
Subject: perl5db on miniperl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c7e68384b26a4c916827142ae090582b63face0c;p=p5sagit%2Fp5-mst-13.2.git

perl5db on miniperl
Message-ID: <20061128113905.GA18135@powdermilk.math.berkeley.edu>

p4raw-id: //depot/perl@29403
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 2b022d4..f665583 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -498,7 +498,7 @@ where it has to go.
 
 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 @@ any variables we might want to address in the C<DB> package.
                 $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";