This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make it possible to have read-only glob copies
[perl5.git] / t / lib / universal.t
index d8c0889..af4a828 100644 (file)
@@ -6,7 +6,7 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
-    plan( tests => 4 );
+    plan( tests => 5 );
 }
 
 for my $arg ('', 'q[]', qw( 1 undef )) {
@@ -23,3 +23,11 @@ Usage: Internals::hv_clear_placeholders(hv) at (eval 3) line 1.
 Internals::HvREHASH $hashref at (eval 4) line 1.
 ====
 }
+
+# Various conundrums with SvREADONLY
+
+$x = *foo;
+Internals::SvREADONLY $x, 1;
+eval { $x = [] };
+like $@, qr/Modification of a read-only value attempted at/,
+    'read-only glob copies';