This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add test for RT #128252
[perl5.git]
/
t
/
op
/
lvref.t
diff --git
a/t/op/lvref.t
b/t/op/lvref.t
index
3e65198
..
a943e55
100644
(file)
--- a/
t/op/lvref.t
+++ b/
t/op/lvref.t
@@
-4,7
+4,7
@@
BEGIN {
set_up_inc("../lib");
}
set_up_inc("../lib");
}
-plan 15
3
;
+plan 15
5
;
eval '\$x = \$y';
like $@, qr/^Experimental aliasing via reference not enabled/,
eval '\$x = \$y';
like $@, qr/^Experimental aliasing via reference not enabled/,
@@
-590,3
+590,12
@@
SKIP: {
# Used to fail an assertion [perl #123821]
eval '\(&$0)=0';
# Used to fail an assertion [perl #123821]
eval '\(&$0)=0';
+pass("RT #123821");
+
+# Used to fail an assertion [perl #128252]
+{
+ no feature 'refaliasing';
+ use warnings;
+ eval q{sub{\@0[0]=0};};
+ pass("RT #128252");
+}