diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-07-02 13:07:45 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-08-20 21:38:07 -0700 |
| commit | ce0d59fdd1c7d145efdf6bf8da56a259fed483e4 (patch) | |
| tree | 6d7ed09aaf3e1540bf3b408b343713dfe3da8b19 /ext/B/t | |
| parent | 1a33a0598e4c684205d292afcb97de6d79d17e7d (diff) | |
| download | perl-ce0d59fdd1c7d145efdf6bf8da56a259fed483e4.tar.gz | |
[perl #7508] Use NULL for nonexistent array elems
This commit fixes bug #7508 and provides the groundwork for fixing
several other bugs.
Elements of @_ are aliased to the arguments, so that \$_[0] within
sub foo will reference the same scalar as \$x if the sub is called
as foo($x).
&PL_sv_undef (the global read-only undef scalar returned by the
‘undef’ operator itself) was being used to represent nonexistent
array elements. So the pattern would be broken for foo(undef), where
\$_[0] would vivify a new $_[0] element, treating it as having been
nonexistent.
This also causes other problems with constants under ithreads
(#105906) and causes a pending fix for another bug (#118691) to trig-
ger this bug.
This commit changes the internals to use a null pointer to represent a
nonexistent element.
This requires that Storable be changed to account for it. Also,
IPC::Open3 was relying on the bug. So this commit patches
both modules.
Diffstat (limited to 'ext/B/t')
| -rw-r--r-- | ext/B/t/showlex.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/t/showlex.t b/ext/B/t/showlex.t index 6a531821f9..2871622a5d 100644 --- a/ext/B/t/showlex.t +++ b/ext/B/t/showlex.t @@ -31,7 +31,7 @@ if ($is_thread) { ok "# use5005threads: test skipped\n"; } else { $a = `$^X $path "-MO=Showlex" -e "my \@one" 2>&1`; - like ($a, qr/sv_undef.*PVNV.*\@one.*sv_undef.*AV/s, + like ($a, qr/sv_undef.*PVNV.*\@one.*Nullsv.*AV/s, "canonical usage works"); } |