diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-11-23 23:03:56 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1997-11-23 23:03:56 +0000 |
| commit | d40103885dfef00fdafa10024e6e4d5e414d1403 (patch) | |
| tree | b238591f2af93b9c450b1be9dada988b340bf64f | |
| parent | d7de06700e5c5216cde5bae1cd5b7fed260b4270 (diff) | |
| download | perl-d40103885dfef00fdafa10024e6e4d5e414d1403.tar.gz | |
Add $$_ test
p4raw-id: //depot/ansiperl@286
| -rwxr-xr-x | t/op/ref.t | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/t/op/ref.t b/t/op/ref.t index 9fcc8ac15c..56925177d1 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 } |