Change 30255: Change 26487 left some debugging code in, and through the wonders of

[Nicholas Clark]

Change 30255 by [EMAIL PROTECTED] on 2007/02/13 14:22:32

        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.

Affected files ...

... //depot/perl/ext/B/t/optree_constants.t#7 edit
... //depot/perl/lib/constant.pm#23 edit

Differences ...

==== //depot/perl/ext/B/t/optree_constants.t#7 (text) ====
Index: perl/ext/B/t/optree_constants.t
--- perl/ext/B/t/optree_constants.t#6~28925~    2006-10-03 07:29:48.000000000 
-0700
+++ perl/ext/B/t/optree_constants.t     2007-02-13 06:22:32.000000000 -0800
@@ -180,13 +180,13 @@
              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> [EMAIL PROTECTED]:FAKE:m:102] ->3
+# 1        <;> nextstate(constant 61 constant.pm:118) v:*,& ->2
+# 2        <0> [EMAIL PROTECTED]: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> [EMAIL PROTECTED]:FAKE:m:76] ->3
+# 1        <;> nextstate(constant 61 constant.pm:118) v:*,& ->2
+# 2        <0> [EMAIL PROTECTED]:FAKE:m:71] ->3
 EONT_EONT
 
 

==== //depot/perl/lib/constant.pm#23 (text) ====
Index: perl/lib/constant.pm
--- perl/lib/constant.pm#22~26502~      2005-12-27 09:24:11.000000000 -0800
+++ perl/lib/constant.pm        2007-02-13 06:22:32.000000000 -0800
@@ -5,7 +5,7 @@
 use warnings::register;
 
 our($VERSION, %declared);
-$VERSION = '1.07';
+$VERSION = '1.08';
 
 #=======================================================================
 
@@ -111,9 +111,6 @@
                    $symtab->{$name} = \$scalar;
                    Internals::inc_sub_generation;
                } else {
-                   if(!exists $symtab->{$name}) {
-                       print STDERR "$name $scalar\n";
-                   }
                    *$full_name = sub () { $scalar };
                }
            } elsif (@_) {
End of Patch.