Module: perl5db.pl Deion <p dir="auto"

This has been in the debugger since <a href="https://github.com/Perl/perl5/commit/d338

<a class="user-mention notranslate" data-hovercard-type="user" data-hovercard-url="/us

perldb requires Term::Rendezvous if the 'noTTY' option is set, but it is unavailable (anywhere?) about perl5 HOT 3 OPEN

djerius commented on August 28, 2024

perldb requires Term::Rendezvous if the 'noTTY' option is set, but it is unavailable (anywhere?)

from perl5.

Comments (3)

haarg commented on August 28, 2024

This has been in the debugger since it was introduced, but I can't see any trace of Term::Rendezvous ever existing on CPAN.

from perl5.

tonycoz commented on August 28, 2024

@shlomif suggested it's something you're meant to provide yourself, which should be documented if it's the intention. Or fixed.

I doubt we'd do this with a fixed class name today.

from perl5.

jkeenan commented on August 28, 2024

If there's anyone who would like a meaningful project involving the Perl debugger, please step forward.

The else block starting at 6894 of lib/perl5db.pl is what needs reformulation:

 6881     # If noTTY is set, but we have a TTY name, go ahead and hook up to it.
 6882     if ($notty) { 
 6883         if ($tty) {
 6884             my ( $i, $o ) = split $tty, /,/;
 6885             $o = $i unless defined $o;
 6886             open( IN,  '<', $i ) or die "Cannot open TTY '$i' for read: $!";
 6887             open( OUT, '>', $o ) or die "Cannot open TTY '$o' for write: $!";
 6888             $IN  = \*IN;
 6889             $OUT = \*OUT;
 6890             _autoflush($OUT);
 6891         } ## end if ($tty)
 6892         
 6893         # We don't have a TTY - try to find one via Term::Rendezvous.
 6894         else {
 6895             require Term::Rendezvous;
 6896             
 6897             # See if we have anything to pass to Term::Rendezvous.
 6898             # Use $HOME/.perldbtty$$ if not.
 6899             my $rv = $ENV{PERLDB_NOTTY} || "$ENV{HOME}/.perldbtty$$";
 6900             
 6901             # Rendezvous and get the filehandles.
 6902             my $term_rv = Term::Rendezvous->new( $rv );
 6903             $IN  = $term_rv->IN;
 6904             $OUT = $term_rv->OUT;
 6905         } ## end else [ if ($tty)
 6906     } ## end if ($notty)
 6907

from perl5.

Recommend Projects