From: Father Chrysostomos <sprout@cpan.org>
Date: Mon, 25 Oct 2010 17:04:29 +0000 (-0700)
Subject: Tests for [perl #77508] List assignment to fake globs fails
X-Git-Tag: upstream/5.16.3~7181
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=0095ccd463db264dc799ca02921528f64f1dc0b2;p=platform%2Fupstream%2Fperl.git

Tests for [perl #77508] List assignment to fake globs fails

This was fixed by 2acc3314e31a9.
---

diff --git a/t/op/gv.t b/t/op/gv.t
index f277e714d9..87624696ce 100644
--- a/t/op/gv.t
+++ b/t/op/gv.t
@@ -12,7 +12,7 @@ BEGIN {
 
 use warnings;
 
-plan( tests => 224 );
+plan( tests => 225 );
 
 # type coersion on assignment
 $foo = 'foo';
@@ -657,6 +657,7 @@ is (scalar $::{fake}, "*main::sym",
 	"Localized FAKE glob's value was correctly restored");
 
 # [perl #1804] *$x assignment when $x is a copy of another glob
+# And [perl #77508] (same thing with list assignment)
 {
     no warnings 'once';
     my $x = *_random::glob_that_is_not_used_elsewhere;
@@ -665,6 +666,12 @@ is (scalar $::{fake}, "*main::sym",
       "$x", '*_random::glob_that_is_not_used_elsewhere',
       '[perl #1804] *$x assignment when $x is FAKE',
     );
+    $x = *_random::glob_that_is_not_used_elsewhere;
+    (my $dummy, *$x) = (undef,[]);
+    is(
+      "$x", '*_random::glob_that_is_not_used_elsewhere',
+      '[perl #77508] *$x list assignment when $x is FAKE',
+    ) or require Devel::Peek, Devel::Peek::Dump($x);
 }
 
 # [perl #76540]