From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 13 Jul 2004 13:29:54 +0000 (+0000)
Subject: Tweak to change #23089, as suggested by Tim Bunce
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=47d3bbda55847f12d15b91e048e7fa55d4476a43;p=p5sagit%2Fp5-mst-13.2.git

Tweak to change #23089, as suggested by Tim Bunce
p4raw-link: @23089 on //depot/perl: ca28b541c9845a7610e3eca36472b9ee994eb64c

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

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 7b443fe..cb91066 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -3191,7 +3191,7 @@ Return to any given position in the B<true>-history list
                     # hard.  See "debugger 'R'estart and open database
                     # connections" on p5p.
 
-                    my $max_fd;
+                    my $max_fd = 1024; # default if POSIX can't be loaded
                     if (eval { require POSIX }) {
                         $max_fd = POSIX::sysconf(POSIX::_SC_OPEN_MAX());
                     }