From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 7 Aug 2000 21:11:52 +0000 (+0000)
Subject: Make the test -w clean.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5507c167c2091faf0e9f5cec15afc3162980c610;p=p5sagit%2Fp5-mst-13.2.git

Make the test -w clean.

p4raw-id: //depot/perl@6544
---

diff --git a/t/op/bless.t b/t/op/bless.t
index a5813d6..ccabcb8 100644
--- a/t/op/bless.t
+++ b/t/op/bless.t
@@ -28,7 +28,7 @@ $b1 = bless [], "B";
 print expected($b1, "B", "ARRAY"), "ok 2\n";
 $c1 = bless \(map "$_", "test"), "C";
 print expected($c1, "C", "SCALAR"), "ok 3\n";
-$d1 = bless \*test, "D";
+$test = "foo"; $d1 = bless \*test, "D";
 print expected($d1, "D", "GLOB"), "ok 4\n";
 $e1 = bless sub { 1 }, "E";
 print expected($e1, "E", "CODE"), "ok 5\n";
@@ -44,7 +44,7 @@ print expected($a1, "A", "HASH"), "ok 9\n";
 
 # reblessing does modify object
 
-$a2 = bless $a1, "A2";
+my $a2 = bless $a1, "A2";
 print expected($a1, "A2", "HASH"), "ok 10\n";
 
 # local and my
@@ -52,7 +52,7 @@ print expected($a1, "A2", "HASH"), "ok 10\n";
     local $a1 = bless $a1, "A3";	# should rebless outer $a1
     local $b1 = bless [], "B3";
     my $c1 = bless $c1, "C3";		# should rebless outer $c1
-    my $d1 = bless \*test2, "D3";
+    $test2 = ""; my $d1 = bless \*test2, "D3";
     print expected($a1, "A3", "HASH"), "ok 11\n";
     print expected($b1, "B3", "ARRAY"), "ok 12\n";
     print expected($c1, "C3", "SCALAR"), "ok 13\n";