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 (file)
--- 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());
                     }