| … | |
… | |
| 408 | |
408 | |
| 409 | } else { |
409 | } else { |
| 410 | my @res = eval $cmd; |
410 | my @res = eval $cmd; |
| 411 | print $@ ? $@ : (join " ", @res) . "\n"; |
411 | print $@ ? $@ : (join " ", @res) . "\n"; |
| 412 | } |
412 | } |
|
|
413 | |
|
|
414 | local $| = 1; |
| 413 | } |
415 | } |
| 414 | |
416 | |
| 415 | =item session $fh |
417 | =item session $fh |
| 416 | |
418 | |
| 417 | Run an interactive debugger session on the given filehandle. Each line entered |
419 | Run an interactive debugger session on the given filehandle. Each line entered |
| 418 | is simply passed to C<command>. |
420 | is simply passed to C<command> (with a few exceptions). |
| 419 | |
421 | |
| 420 | =cut |
422 | =cut |
| 421 | |
423 | |
| 422 | sub session($) { |
424 | sub session($) { |
| 423 | my ($fh) = @_; |
425 | my ($fh) = @_; |
