DB<3> b 1580
DB<4> x readline::readline('  FOO ')
readline::readline(/scratch/testfrank/lib/perl5/Term/ReadLine/readline.pm:1580):
1580:       if (!eval {SetTTY()}) {     ## Put into raw mode.
auto(-1)  DB<<5>> v
1577:       $lastdelta = 0;             ## Cursor was nowhere
1578:       $si = 0;                    ## Want line to start left-justified
1579:       $force_redraw = 1;          ## Want to display with brute force.
1580==>b            if (!eval {SetTTY()}) {     ## Put into raw mode.
1581:           warn $@ if $@;
1582:           $dumb_term = 1;
1583:           return readline_dumb;
1584        }
1585 
1586:       *KeyMap = $var_EditingMode;
DB<<5>> x eval{SetTTY()}
0  1
DB<<6>> x $@
0  ''
DB<<7>>