Revert "[perl #77928] Glob slot assignment and set-magic"

This reverts commit cffb36981555111f364a511fb5763f65ea748c0e.

1 files changed, 1 insertions, 14 deletions

diff --git a/t/op/gv.t b/t/op/gv.t
index b8363d2454..32afdff69b 100644
--- a/t/op/gv.t
+++ b/t/op/gv.t
@@ -12,7 +12,7 @@ BEGIN {
 
 use warnings;
 
-plan( tests => 220 );
+plan( tests => 219 );
 
 # type coersion on assignment
 $foo = 'foo';
@@ -783,19 +783,6 @@ EOF
  }}->($h{k});
 }
 
-# [perl #77928] Glob slot assignment and set-magic
-{
- package Readonly::Alias;
- sub TIESCALAR { bless \(my $x = \pop) }
- sub FETCH { $${$_[0]} }
- sub STORE { die "Assignment to read-only value" }
- package main;
- tie my $alias, "Readonly::Alias", my $var;
- $var = *bength;
- # Now modify a glob slot, not the alias itself:
- ok(scalar eval { *$alias = [] }, 'glob slot assignment skips set-magic');
-}
-
 __END__
 Perl
 Rules