diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 2006-10-06 12:14:03 +0100 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2006-10-07 11:52:04 +0000 |
| commit | 4a61a419e973664cf6d84b4399c096cc6336f124 (patch) | |
| tree | c5805feb4863b6d9b4ee2f4ffa3e44b3b3da9986 /ext/List/Util | |
| parent | 5b1ebecd6d20d472272a372288570616cb63b531 (diff) | |
| download | perl-4a61a419e973664cf6d84b4399c096cc6336f124.tar.gz | |
another g++ patch (Util.xs)
From: "Paul Marquess" <paul.marquess@ntlworld.com>
Message-ID: <00ea01c6e930$269f3d70$4e3c140a@myopwv.com>
p4raw-id: //depot/perl@28954
Diffstat (limited to 'ext/List/Util')
| -rw-r--r-- | ext/List/Util/Util.xs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/List/Util/Util.xs b/ext/List/Util/Util.xs index 3a950466e1..5f713a00b5 100644 --- a/ext/List/Util/Util.xs +++ b/ext/List/Util/Util.xs @@ -390,7 +390,7 @@ CODE: if(!sv_isobject(sv)) { XSRETURN_UNDEF; } - RETVAL = sv_reftype(SvRV(sv),TRUE); + RETVAL = (char*)sv_reftype(SvRV(sv),TRUE); } OUTPUT: RETVAL @@ -406,7 +406,7 @@ CODE: if(!SvROK(sv)) { XSRETURN_UNDEF; } - RETVAL = sv_reftype(SvRV(sv),FALSE); + RETVAL = (char*)sv_reftype(SvRV(sv),FALSE); } OUTPUT: RETVAL |