compiler fixes from Vishal Bhatia <vishalb@hotmail.com>

	Date: Tue, 30 Mar 1999 23:40:34 PST
	Message-ID: <19990331074034.6117.qmail@hotmail.com>
	Subject: [PATCH 5.005_56] pp_entersub and pp_leavewrite(CC.pm)
	--
	Date: Wed, 07 Apr 1999 00:28:23 -0800
	Message-ID: <FGBNLNPOEELFAAAA@my-dejanews.com>
	Subject: [PATCH 5.005_56] function prototypes(B.pm)
	--
	Date: Thu, 22 Apr 1999 23:40:52 -0700
	Message-ID: <OEAOMKBMLDADCAAA@my-dejanews.com>
	Subject: [PATCH 5.005_56 ] discarding worthless padsvs
	--
	Date: Tue, 27 Apr 1999 01:14:49 PDT
	Message-ID: <19990427081449.28615.qmail@hotmail.com>
	Subject: [PATCH 5.005_56] pp_ncmp implementation ( CC.pm)

p4raw-id: //depot/perl@3314

2 files changed, 4 insertions, 4 deletions

diff --git a/t/op/gv.t b/t/op/gv.t
index 10d84ee0f6..ee7978e046 100755
--- a/t/op/gv.t
+++ b/t/op/gv.t
@@ -62,7 +62,7 @@ if (defined $baa) {
 #        fact that %X::Y:: is stored in %X:: isn't documented.
 #        (I hope.)
 
-{ package Foo::Bar }
+{ package Foo::Bar; $test=1; }
 print exists $Foo::{'Bar::'} ? "ok 12\n" : "not ok 12\n";
 print $Foo::{'Bar::'} eq '*Foo::Bar::' ? "ok 13\n" : "not ok 13\n";
 
diff --git a/t/op/ref.t b/t/op/ref.t
index 618cfcc263..a2baab8e3b 100755
--- a/t/op/ref.t
+++ b/t/op/ref.t
@@ -241,11 +241,11 @@ print $$_,"\n";
     package A;
     sub new { bless {}, shift }
     DESTROY { print "# destroying 'A'\nok 51\n" }
-    package B;
+    package _B;
     sub new { bless {}, shift }
-    DESTROY { print "# destroying 'B'\nok 50\n"; bless shift, 'A' }
+    DESTROY { print "# destroying '_B'\nok 50\n"; bless shift, 'A' }
     package main;
-    my $b = B->new;
+    my $b = _B->new;
 }
 
 # test if $_[0] is properly protected in DESTROY()