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 /lib/constant.pm | |
| 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
Diffstat (limited to 'lib/constant.pm')
| -rw-r--r-- | lib/constant.pm | 5 |
1 files changed, 1 insertions, 4 deletions
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 (@_) { |