This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #128086] Test the prev commit
authorFather Chrysostomos <sprout@cpan.org>
Sun, 15 May 2016 20:49:33 +0000 (13:49 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 15 May 2016 21:01:29 +0000 (14:01 -0700)
t/op/stash.t

index 151b729..b8e0f34 100644 (file)
@@ -7,7 +7,7 @@ BEGIN {
 
 BEGIN { require "./test.pl"; }
 
-plan( tests => 51 );
+plan( tests => 52 );
 
 # Used to segfault (bug #15479)
 fresh_perl_like(
@@ -334,3 +334,10 @@ is runperl(
    ),
    "ok\n",
    '[perl #123847] no crash from *foo::=*bar::=*glob_with_hash';
+
+is runperl(
+    prog => '%h; *::::::=*h; delete $::{q|::|}; print qq|ok\n|',
+    stderr => 1,
+   ),
+   "ok\n",
+   '[perl #128086] no crash from assigning hash to *:::::: & deleting it';