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
Stop lexical CORE sub from interfering with CORE::
[perl5.git]
/
t
/
op
/
lexsub.t
diff --git
a/t/op/lexsub.t
b/t/op/lexsub.t
index
0be305b
..
07bfce5
100644
(file)
--- a/
t/op/lexsub.t
+++ b/
t/op/lexsub.t
@@
-8,7
+8,7
@@
BEGIN {
*bar::like = *like;
}
no warnings 'deprecated';
*bar::like = *like;
}
no warnings 'deprecated';
-plan 1
39
;
+plan 1
40
;
# -------------------- Errors with feature disabled -------------------- #
# -------------------- Errors with feature disabled -------------------- #
@@
-284,6
+284,9
@@
sub make_anon_with_state_sub{
state sub END { shift }
is eval{END('jkqeudth')}, jkqeudth,
'state sub END {shift} implies @_, not @ARGV';
state sub END { shift }
is eval{END('jkqeudth')}, jkqeudth,
'state sub END {shift} implies @_, not @ARGV';
+ state sub CORE { scalar reverse shift }
+ is CORE::uc("hello"), "HELLO",
+ 'lexical CORE does not interfere with CORE::...';
}
{
state sub redef {}
}
{
state sub redef {}