diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-02-13 14:22:32 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-02-13 14:22:32 +0000 |
| commit | dbeafbd11804a1f3337ac72205001f934fa9e9af (patch) | |
| tree | c588cbc05647058bca051c2fdaa511defaab43dc | |
| parent | f34c6aafbe054cce2cb8b032aa4ab346b5feaf96 (diff) | |
| download | perl-dbeafbd11804a1f3337ac72205001f934fa9e9af.tar.gz | |
Change 26487 left some debugging code in, and through the wonders of
autovivification, that code actually introduced a bug, most easily
visible for the for the non-5.9.x case.
p4raw-id: //depot/perl@30255
| -rw-r--r-- | ext/B/t/optree_constants.t | 8 | ||||
| -rw-r--r-- | lib/constant.pm | 5 |
2 files changed, 5 insertions, 8 deletions
diff --git a/ext/B/t/optree_constants.t b/ext/B/t/optree_constants.t index c7f4cd1d0f..b8ea287661 100644 --- a/ext/B/t/optree_constants.t +++ b/ext/B/t/optree_constants.t @@ -180,13 +180,13 @@ checkOptree ( name => 'constant sub returning list', expect => <<'EOT_EOT', expect_nt => <<'EONT_EONT'); # 3 <1> leavesub[2 refs] K/REFC,1 ->(end) # - <@> lineseq K ->3 -# 1 <;> nextstate(constant 685 constant.pm:121) v:*,& ->2 -# 2 <0> padav[@list:FAKE:m:102] ->3 +# 1 <;> nextstate(constant 61 constant.pm:118) v:*,& ->2 +# 2 <0> padav[@list:FAKE:m:96] ->3 EOT_EOT # 3 <1> leavesub[2 refs] K/REFC,1 ->(end) # - <@> lineseq K ->3 -# 1 <;> nextstate(constant 685 constant.pm:121) v:*,& ->2 -# 2 <0> padav[@list:FAKE:m:76] ->3 +# 1 <;> nextstate(constant 61 constant.pm:118) v:*,& ->2 +# 2 <0> padav[@list:FAKE:m:71] ->3 EONT_EONT diff --git a/lib/constant.pm b/lib/constant.pm index 0b8efb3e71..318a5636e6 100644 --- a/lib/constant.pm +++ b/lib/constant.pm @@ -5,7 +5,7 @@ use 5.006_00; use warnings::register; our($VERSION, %declared); -$VERSION = '1.07'; +$VERSION = '1.08'; #======================================================================= @@ -111,9 +111,6 @@ sub import { $symtab->{$name} = \$scalar; Internals::inc_sub_generation; } else { - if(!exists $symtab->{$name}) { - print STDERR "$name $scalar\n"; - } *$full_name = sub () { $scalar }; } } elsif (@_) { |