Mailing List Archive

Author: richter
Date: Sun Mar 16 13:14:24 2014
New Revision: 1578053

URL: http://svn.apache.org/r1578053
Log:
do not use true / false but 1 / 0

Modified:
perl/embperl/trunk/epinit.c

Modified: perl/embperl/trunk/epinit.c
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/epinit.c?rev=1578053&r1=1578052&r2=1578053&view=diff
==============================================================================
--- perl/embperl/trunk/epinit.c (original)
+++ perl/embperl/trunk/epinit.c Sun Mar 16 13:14:24 2014
@@ -1026,7 +1026,7 @@ static int embperl_GetFormData (/*i/o*/
bool bNoUtf8 = (r -> Config.bOptions & optFormDataNoUtf8) != 0 ;
bool bDebug = (r -> Config.bDebug & dbgForm) != 0 ;
int mayutf8 = 0 ;
- bool bInValue = false ;
+ bool bInValue = 0 ;
char c ;
epTHX ;

@@ -1076,7 +1076,7 @@ static int embperl_GetFormData (/*i/o*/
break ;
case ';':
case '&':
- bInValue = false ;
+ bInValue = 0 ;
pQueryString++ ;
nLen-- ;
case '\0':
@@ -1162,7 +1162,7 @@ static int embperl_GetFormData (/*i/o*/
pVal = p ;
pQueryString++ ;
nLen-- ;
- bInValue = true ;
+ bInValue = 1 ;
break ;
}
/* fall through */



---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org