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
Data::Dumper/t/dumper.t: Remove test numbers from comments
[perl5.git]
/
pad.c
diff --git
a/pad.c
b/pad.c
index
aa63fde
..
057a502
100644
(file)
--- a/
pad.c
+++ b/
pad.c
@@
-2126,7
+2126,7
@@
S_cv_clone_pad(pTHX_ CV *proto, CV *cv, CV *outside, HV *cloned,
S_cv_clone(aTHX_ (CV *)ppad[ix],
(CV *)PL_curpad[ix],
*cvp, cloned);
- hv_store(cloned, (char *)&ppad[ix],
+
(void)
hv_store(cloned, (char *)&ppad[ix],
sizeof(CV *),
SvREFCNT_inc_simple_NN(PL_curpad[ix]),
0);