[MacPerl] $my_debugger{contains_bugs} = 1;

[kpreid@ibm.net (Kevin Reid)]

I am trying to write an alternate Perl debugger.

Here it is (so far):

------------------------------------------------------------------------

package DB;

$^O eq 'MacOS' or die "This debugger requires MacPerl.";

open DBW, "> Dev:Console:Debug Lines"
  or die "Couldn't open debugger output window: $!";

sub DB {
  my ($package, $filename, $line) = caller;

  my $packlines = \@{"main::_<$filename"};
  printf DBW "%-4s %s\n", "$line:", do {chomp (my $temp =
$packlines->[$line]); $temp}
    if $package !~ /^Mac/;
  1;
}

1;

------------------------------------------------------------------------

However, when this simple program is run (with my debugger), it does not
wait for input properly:

print "?";
print scalar <STDIN>;
print "end\n";

-- 
  Kevin Reid.      |         Macintosh.
   "I'm me."       |      Think different.

***** Want to unsubscribe from this list?
***** Send mail with body "unsubscribe" to mac-perl-request@iis.ee.ethz.ch