diff options
| author | Steve Peters <steve@fisharerojo.org> | 2005-05-17 13:17:01 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-20 09:26:01 +0000 |
| commit | 95a20fc0f418f9e1e0d100fe94506ad0a61144e9 (patch) | |
| tree | e003b524a641f253eac0b309363e37f22067ab09 /universal.c | |
| parent | 0dbb1585a715e56312e579a5f0e7f82241b38352 (diff) | |
| download | perl-95a20fc0f418f9e1e0d100fe94506ad0a61144e9.tar.gz | |
SvPVX_const() - Patch #1
Message-ID: <20050517231701.GA1394@mccoy.peters.homeunix.org>
p4raw-id: //depot/perl@24509
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/universal.c b/universal.c index 9383905fdf..b62e368573 100644 --- a/universal.c +++ b/universal.c @@ -877,9 +877,9 @@ XS(XS_PerlIO_get_layers) if (details) { XPUSHs(namok ? - newSVpv(SvPVX(*namsvp), 0) : &PL_sv_undef); + newSVpv(SvPVX_const(*namsvp), 0) : &PL_sv_undef); XPUSHs(argok ? - newSVpv(SvPVX(*argsvp), 0) : &PL_sv_undef); + newSVpv(SvPVX_const(*argsvp), 0) : &PL_sv_undef); if (flgok) XPUSHi(SvIVX(*flgsvp)); else |