From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 13 Feb 2007 14:22:32 +0000 (+0000)
Subject: Change 26487 left some debugging code in, and through the wonders of
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dbeafbd11804a1f3337ac72205001f934fa9e9af;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/ext/B/t/optree_constants.t b/ext/B/t/optree_constants.t
index c7f4cd1..b8ea287 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 0b8efb3..318a563 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 (@_) {