From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sun, 23 Nov 1997 23:03:56 +0000 (+0000)
Subject: Add $$_ test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d40103885dfef00fdafa10024e6e4d5e414d1403;p=p5sagit%2Fp5-mst-13.2.git

Add $$_ test

p4raw-id: //depot/ansiperl@286
---

diff --git a/t/op/ref.t b/t/op/ref.t
index 9fcc8ac..5692517 100755
--- a/t/op/ref.t
+++ b/t/op/ref.t
@@ -1,6 +1,6 @@
 #!./perl
 
-print "1..51\n";
+print "1..52\n";
 
 # Test glob operations.
 
@@ -231,12 +231,16 @@ $bar = "ok 48";
 local(*bar) = *bar;
 print "$bar\n";
 
+$var = "ok 49";
+$_   = \$var;
+print $$_,"\n";
+
 package FINALE;
 
 {
-    $ref3 = bless ["ok 51\n"];		# package destruction
-    my $ref2 = bless ["ok 50\n"];	# lexical destruction
-    local $ref1 = bless ["ok 49\n"];	# dynamic destruction
+    $ref3 = bless ["ok 52\n"];		# package destruction
+    my $ref2 = bless ["ok 51\n"];	# lexical destruction
+    local $ref1 = bless ["ok 50\n"];	# dynamic destruction
     1;					# flush any temp values on stack
 }