projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Changes to perlfaq8 "How do I find out if I'm running interactively
[p5sagit/p5-mst-13.2.git]
/
av.c
diff --git
a/av.c
b/av.c
index
423d006
..
5f04d05
100644
(file)
--- a/
av.c
+++ b/
av.c
@@
-284,6
+284,10
@@
Perl_av_store(pTHX_ register AV *av, I32 key, SV *val)
assert(av);
+ /* S_regclass relies on being able to pass in a NULL sv
+ (unicode_alternate may be NULL).
+ */
+
if (!val)
val = &PL_sv_undef;