diff options
| author | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-11-09 13:38:50 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-11-09 13:38:50 +0000 |
| commit | 34de22dd6ede167a09e3a3ee571665ba2c647f94 (patch) | |
| tree | b23f3936caa4bcd96a5213e5fca656b7c4465195 /lib | |
| parent | 57ebbfd03f7f6ea2523a79a595ecc80ef8e2ab9b (diff) | |
| download | perl-34de22dd6ede167a09e3a3ee571665ba2c647f94.tar.gz | |
perl 3.0 patch #40 patch #38, continued
See patch #38.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/perldb.pl | 9 | ||||
| -rw-r--r-- | lib/syslog.pl | 11 |
2 files changed, 13 insertions, 7 deletions
diff --git a/lib/perldb.pl b/lib/perldb.pl index cff7cb381a..c86fb16506 100644 --- a/lib/perldb.pl +++ b/lib/perldb.pl @@ -1,6 +1,6 @@ package DB; -$header = '$Header: perldb.pl,v 3.0.1.4 90/10/15 17:40:38 lwall Locked $'; +$header = '$Header: perldb.pl,v 3.0.1.5 90/11/10 01:40:26 lwall Locked $'; # # This file is automatically included if you do perl -d. # It's probably not useful to include this yourself. @@ -10,6 +10,9 @@ $header = '$Header: perldb.pl,v 3.0.1.4 90/10/15 17:40:38 lwall Locked $'; # have a breakpoint. It also inserts a do 'perldb.pl' before the first line. # # $Log: perldb.pl,v $ +# Revision 3.0.1.5 90/11/10 01:40:26 lwall +# patch38: the debugger wouldn't stop correctly or do action routines +# # Revision 3.0.1.4 90/10/15 17:40:38 lwall # patch29: added caller # patch29: the debugger now understands packages and evals @@ -59,7 +62,7 @@ sub DB { $signal |= 1; } else { - $signal |= &eval($stop); + &eval("\$DB'signal |= do {$stop;}"); $dbline{$line} =~ s/;9($|\0)/$1/; } } @@ -307,7 +310,7 @@ command Execute as a perl statement in current package. print OUT "Line $i may not have an action.\n"; } else { $dbline{$i} =~ s/\0[^\0]*//; - $dbline .= "\0" . do action($3); + $dbline{$i} .= "\0" . do action($3); } next; }; $cmd =~ /^n$/ && do { diff --git a/lib/syslog.pl b/lib/syslog.pl index 1d7becf66a..fe9b183be3 100644 --- a/lib/syslog.pl +++ b/lib/syslog.pl @@ -2,9 +2,12 @@ # syslog.pl # # $Log: syslog.pl,v $ -Revision 3.0.1.3 90/10/15 17:42:18 lwall -patch29: various portability fixes - +# Revision 3.0.1.4 90/11/10 01:41:11 lwall +# patch38: syslog.pl was referencing an absolute path +# +# Revision 3.0.1.3 90/10/15 17:42:18 lwall +# patch29: various portability fixes +# # Revision 3.0.1.1 90/08/09 03:57:17 lwall # patch19: Initial revision # @@ -54,7 +57,7 @@ package syslog; $host = 'localhost' unless $host; # set $syslog'host to change -require '/usr/local/lib/perl/syslog.ph'; +require 'syslog.ph'; $maskpri = &LOG_UPTO(&LOG_DEBUG); |