diff options
| -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 (@_) { |