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
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
7fc4e71
)
pp_sort.c: Missing cast
author
Father Chrysostomos
<sprout@cpan.org>
Wed, 10 Aug 2016 20:00:51 +0000
(13:00 -0700)
committer
Father Chrysostomos
<sprout@cpan.org>
Wed, 10 Aug 2016 20:00:51 +0000
(13:00 -0700)
This is a compilation error under C++.
pp_sort.c
patch
|
blob
|
blame
|
history
diff --git
a/pp_sort.c
b/pp_sort.c
index
b68e80c
..
4f0553b
100644
(file)
--- a/
pp_sort.c
+++ b/
pp_sort.c
@@
-1596,7
+1596,7
@@
PP(pp_sort)
/* shuffle stack down, removing optional initial cv (p1!=p2), plus
* any nulls; also stringify or converting to integer or number as
* required any args */
- copytmps =
PL_sortcop
;
+ copytmps =
cBOOL(PL_sortcop)
;
for (i=max; i > 0 ; i--) {
if ((*p1 = *p2++)) { /* Weed out nulls. */
if (copytmps && SvPADTMP(*p1)) {