r70624 - /trunk/libauthen-sasl-cyrus-perl/debian/patches/strlen-size

rra at users.alioth.debian.org rra at users.alioth.debian.org
Sun Mar 6 05:47:38 UTC 2011


Author: rra
Date: Sun Mar  6 05:47:24 2011
New Revision: 70624

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=70624
Log:
Fix yet more data type problems

Fix cascading issues from changing an internal prototype, and fix the
output lengths from the SASL code, which should still be unsigned ints.

Modified:
    trunk/libauthen-sasl-cyrus-perl/debian/patches/strlen-size

Modified: trunk/libauthen-sasl-cyrus-perl/debian/patches/strlen-size
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libauthen-sasl-cyrus-perl/debian/patches/strlen-size?rev=70624&op=diff
==============================================================================
--- trunk/libauthen-sasl-cyrus-perl/debian/patches/strlen-size (original)
+++ trunk/libauthen-sasl-cyrus-perl/debian/patches/strlen-size Sun Mar  6 05:47:24 2011
@@ -15,7 +15,77 @@
  {
  	int rc = SASL_OK;
  
-@@ -937,7 +937,7 @@
+@@ -274,7 +274,8 @@
+ int PerlCallback(void *context, int id, const char **result, unsigned *len)
+ {
+ 	struct _perlcontext *cp = (struct _perlcontext *) context;
+-	int llen, rc=SASL_OK;
++	Size_t llen;
++        int rc=SASL_OK;
+ 	char *c = NULL;
+ 
+ 	if (id != SASL_CB_USER &&
+@@ -308,7 +309,8 @@
+ int PerlCallbackRealm ( void *context, int id, const char **availrealms, const char **result)
+ {
+ 	struct _perlcontext *cp = (struct _perlcontext *) context;
+-	int rc = SASL_OK,i,len;
++	int rc = SASL_OK,i;
++	Size_t len;
+ 	char *c = NULL;
+ 
+ 	AV *args = newAV();
+@@ -366,7 +368,8 @@
+ int PerlCallbackSecret (sasl_conn_t *conn, void *context, int id, sasl_secret_t **psecret)
+ {
+ 	struct _perlcontext *cp = (struct _perlcontext *) context;
+-	int len,rc = SASL_OK;
++	int rc = SASL_OK;
++	Size_t len;
+ 	char *c = NULL;
+ 
+ 	/* HandlePerlStuff */
+@@ -390,7 +393,8 @@
+ 					unsigned *out_ulen)
+ {
+ 	struct _perlcontext *cp = (struct _perlcontext *) context;
+-	int rc = SASL_OK,len;
++	int rc = SASL_OK;
++	Size_t len;
+ 	char *c = NULL;
+ 
+ 	AV *args;
+@@ -433,7 +437,8 @@
+ 	const char *pass, unsigned passlen, struct propctx *propctx)
+ {
+ 	struct _perlcontext *cp = (struct _perlcontext *) context;
+-	int rc = SASL_OK,len;
++	int rc = SASL_OK;
++	Size_t len;
+ 	char *c = NULL;
+ 
+ 	AV *args = newAV();
+@@ -467,7 +472,8 @@
+ {
+ 	struct _perlcontext *cp = (struct _perlcontext *) context;
+ 	AV *args = newAV();
+-	int rc = SASL_OK, len;
++	int rc = SASL_OK;
++	Size_t len;
+ 	char *c = NULL;
+ 
+ 	_DEBUG("ServerSetPass: %s, %s, %d",user,pass,passlen);
+@@ -497,7 +503,8 @@
+ {
+ 	struct _perlcontext *cp = (struct _perlcontext *) context;
+ 	AV *args = newAV();
+-	int rc = SASL_OK,len;
++	int rc = SASL_OK;
++	Size_t len;
+ 	char *c = NULL;
+ 
+ 	_DEBUG("Authorize: %s, %s, %s",auth_identity,requested_user,def_realm);
+@@ -937,7 +944,7 @@
  {
  	char *key;
  	int count=0,i;
@@ -24,48 +94,53 @@
  #ifndef SASL2
  	// Missing SASL1 canonuser workaround
  	int canon=-1,auth=-1;
-@@ -1306,7 +1306,7 @@
+@@ -1306,7 +1313,8 @@
  	const char *instring;
  	PREINIT:
  		int rc;
 -		unsigned outlen,inlen;
-+		Size_t outlen,inlen;
++		Size_t inlen;
++		unsigned int outlen;
  #ifdef SASL2
  		const char *outstring = NULL;
  #else
-@@ -1402,7 +1402,7 @@
+@@ -1402,7 +1410,8 @@
  		const char *error=NULL;
  #endif
  		int rc;
 -		unsigned int inlen, outlen=0;
-+		Size_t inlen, outlen=0;
++		Size_t inlen;
++		unsigned int outlen=0;
  	PPCODE:
  		if (sasl->error_code != SASL_CONTINUE)
  			XSRETURN_UNDEF;
-@@ -1454,7 +1454,7 @@
+@@ -1454,7 +1463,8 @@
      char *outstring=NULL;
  #endif
      int rc;
 -    unsigned int inlen, outlen=0;
-+    Size_t inlen, outlen=0;
++    Size_t inlen;
++    unsigned int outlen=0;
  
      if (sasl->error_code != SASL_CONTINUE)
        XSRETURN_UNDEF;
-@@ -1624,7 +1624,7 @@
+@@ -1624,7 +1634,8 @@
      char *outstring=NULL;
  #endif
      int rc;
 -	unsigned int inlen, outlen=0;
-+	Size_t inlen, outlen=0;
++	Size_t inlen;
++	unsigned int outlen=0;
  	if (sasl->error_code)
  		XSRETURN_UNDEF;
  
-@@ -1652,7 +1652,7 @@
+@@ -1652,7 +1663,8 @@
      char *outstring=NULL;
  #endif
      int rc;
 -    unsigned int inlen, outlen=0;
-+    Size_t inlen, outlen=0;
++    Size_t inlen;
++    unsigned int outlen=0;
  
      if (sasl->error_code)
         XSRETURN_UNDEF;




More information about the Pkg-perl-cvs-commits mailing list