projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
ff535f4
)
[ID 20001003.006] B::Debug not -w clean
author
Nicholas Clark
<nick@ccl4.org>
Tue, 3 Oct 2000 15:46:32 +0000
(16:46 +0100)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Tue, 3 Oct 2000 15:00:34 +0000
(15:00 +0000)
Message-Id: <E13gTKy-0002R2-00@fruitbat.babyhippo.co.uk>
p4raw-id: //depot/perl@7134
ext/B/B/Debug.pm
patch
|
blob
|
history
diff --git
a/ext/B/B/Debug.pm
b/ext/B/B/Debug.pm
index
ae7a973
..
3e212e2
100644
(file)
--- a/
ext/B/B/Debug.pm
+++ b/
ext/B/B/Debug.pm
@@
-244,7
+244,7
@@
sub B::SPECIAL::debug {
sub compile {
my $order = shift;
B::clearsym();
- if ($order eq "exec") {
+ if ($order
&& $order
eq "exec") {
return sub { walkoptree_exec(main_start, "debug") }
} else {
return sub { walkoptree(main_root, "debug") }