diff options
| author | Nicholas Clark <nick@ccl4.org> | 2001-09-05 21:54:24 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-05 22:34:55 +0000 |
| commit | 6e9d10810a2ec27ec94fd014e5dbab341c35afb1 (patch) | |
| tree | 44e17de22e707690daf7229b15e2454bbaf49f49 /sv.c | |
| parent | 57451d77f86469523e0ddfb6d70d92f71e056fac (diff) | |
| download | perl-6e9d10810a2ec27ec94fd014e5dbab341c35afb1.tar.gz | |
Re: [ID 20010825.006] -DCRIPPLED_CC is broken
Message-ID: <20010905205424.C25120@plum.flirble.org>
p4raw-id: //depot/perl@11892
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 13 |
1 files changed, 13 insertions, 0 deletions
@@ -6721,6 +6721,19 @@ Perl_sv_pvn(pTHX_ SV *sv, STRLEN *lp) return sv_2pv(sv, lp); } +/* For -DCRIPPLED_CC only. See also C<sv_2pv_flags()>. + */ + +char * +Perl_sv_pvn_nomg(pTHX_ register SV *sv, STRLEN *lp) +{ + if (SvPOK(sv)) { + *lp = SvCUR(sv); + return SvPVX(sv); + } + return sv_2pv_flags(sv, lp, 0); +} + /* =for apidoc sv_pvn_force |