You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2010/03/18 20:53:48 UTC
svn commit: r924970 - in /perl/embperl/trunk: Changes.pod epprovider.c
Author: richter
Date: Thu Mar 18 19:53:48 2010
New Revision: 924970
URL: http://svn.apache.org/viewvc?rev=924970&view=rev
Log:
Fix make test error for Perl compiled with DEBUGGING on
Modified:
perl/embperl/trunk/Changes.pod
perl/embperl/trunk/epprovider.c
Modified: perl/embperl/trunk/Changes.pod
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Changes.pod?rev=924970&r1=924969&r2=924970&view=diff
==============================================================================
--- perl/embperl/trunk/Changes.pod (original)
+++ perl/embperl/trunk/Changes.pod Thu Mar 18 19:53:48 2010
@@ -10,6 +10,7 @@
- Adaption of tests to changed error messages of perl 5.10
- Makefile.PL can now cope with OpenSuSE 11.2, if perl,
mod_perl and apache are installed from OpenSuSE packages.
+ - Fix make test error for Perl compiled with DEBUGGING on
=head1 2.3.1
Modified: perl/embperl/trunk/epprovider.c
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/epprovider.c?rev=924970&r1=924969&r2=924970&view=diff
==============================================================================
--- perl/embperl/trunk/epprovider.c (original)
+++ perl/embperl/trunk/epprovider.c Thu Mar 18 19:53:48 2010
@@ -722,9 +722,18 @@ static int ProviderMem_GetContentSV (/*i
if ((*pData = SvREFCNT_inc(((tProviderMem *)pProvider) -> pSource)))
{
SvREFCNT_inc (*pData) ;
- r -> Component.pBuf = SvPVX (*pData) ;
- r -> Component.pEndPos = r -> Component.pBuf + SvCUR(*pData) ;
- r -> Component.pCurrPos = r -> Component.pBuf ;
+ if (SvPOK(*pData))
+ {
+ r -> Component.pBuf = SvPVX (*pData) ;
+ r -> Component.pEndPos = r -> Component.pBuf + SvCUR(*pData) ;
+ r -> Component.pCurrPos = r -> Component.pBuf ;
+ }
+ else
+ {
+ r -> Component.pBuf = "" ;
+ r -> Component.pEndPos = r -> Component.pBuf ;
+ r -> Component.pCurrPos = r -> Component.pBuf ;
+ }
}
}
return ok ;
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org