X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/9409f752f9f55770d0998b79e3e5a79b1153b46c..3d50185de85a756293c9c3954114bd5c2d08a460:/t/op/stash.t

diff --git a/t/op/stash.t b/t/op/stash.t
index 4c846b7..af218ad 100644
--- a/t/op/stash.t
+++ b/t/op/stash.t
@@ -7,7 +7,7 @@ BEGIN {
 
 BEGIN { require "./test.pl"; }
 
-plan( tests => 50 );
+plan( tests => 51 );
 
 # Used to segfault (bug #15479)
 fresh_perl_like(
@@ -327,3 +327,10 @@ is runperl(
    ),
    "SUPER\n",
    'bareword lookup does not vivify stashes';
+
+is runperl(
+    prog => '%0; *bar::=*foo::=0; print qq|ok\n|',
+    stderr => 1,
+   ),
+   "ok\n",
+   '[perl #123847] no crash from *foo::=*bar::=*glob_with_hash';