diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-04-06 15:05:32 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-04-06 15:05:32 +0000 |
| commit | 8f77bfdb1ccc695676a1e8260398001deb0b18cf (patch) | |
| tree | 7a990401bd6bdfecf31f0b183c4546c7953f580b /sv.c | |
| parent | a221a8a55f0bbb6b52da5c544e7bc886f16754e8 (diff) | |
| download | perl-8f77bfdb1ccc695676a1e8260398001deb0b18cf.tar.gz | |
Casting to/from (void *) sufficient to make a C++ compiler happy.
p4raw-id: //depot/perl@24175
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -11030,7 +11030,7 @@ Perl_sv_dup(pTHX_ SV *sstr, CLONE_PARAMS* param) if (CvCONST(sstr)) { CvXSUBANY(dstr).any_ptr = GvUNIQUE(CvGV(sstr)) ? SvREFCNT_inc(CvXSUBANY(sstr).any_ptr) : - sv_dup_inc(CvXSUBANY(sstr).any_ptr, param); + sv_dup_inc((SV *)CvXSUBANY(sstr).any_ptr, param); } /* don't dup if copying back - CvGV isn't refcounted, so the * duped GV may never be freed. A bit of a hack! DAPM */ |