cvs commit: ponie/perl sv.c
[email protected] (Nicholas Clark) 11 Oct 2004 16:23:40 -0000
| Newsgroups | perl.ponie.changes |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 04/10/11 09:23:40
Modified: perl sv.c
Log:
Perl_sv_recode_to_utf8 shouldn't be returning SvPVX without first checking
that the SV is SvPOKp
Revision Changes Path
1.44 +2 -1 ponie/perl/sv.c
Index: sv.c
===================================================================
RCS file: /cvs/public/ponie/perl/sv.c,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -w -r1.43 -r1.44
--- sv.c 24 Jun 2004 14:31:34 -0000 1.43
+++ sv.c 11 Oct 2004 16:23:40 -0000 1.44
@@ -12105,9 +12105,10 @@
FREETMPS;
LEAVE;
SvUTF8_on(sv);
- }
return SvPVX(sv);
}
+ return SvPOKp(sv) ? SvPVX(sv) : NULL;
+}
/*
=for apidoc sv_cat_decode