r2718 - in /packages/libauthen-sasl-cyrus-perl/trunk: CHANGES
Cyrus.pm Cyrus.xs META.yml debian/changelog
rra at users.alioth.debian.org
rra at users.alioth.debian.org
Sun May 7 22:40:01 UTC 2006
Author: rra
Date: Sun May 7 22:40:00 2006
New Revision: 2718
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=2718
Log:
* New upstream release.
Modified:
packages/libauthen-sasl-cyrus-perl/trunk/CHANGES
packages/libauthen-sasl-cyrus-perl/trunk/Cyrus.pm
packages/libauthen-sasl-cyrus-perl/trunk/Cyrus.xs
packages/libauthen-sasl-cyrus-perl/trunk/META.yml
packages/libauthen-sasl-cyrus-perl/trunk/debian/changelog
Modified: packages/libauthen-sasl-cyrus-perl/trunk/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-sasl-cyrus-perl/trunk/CHANGES?rev=2718&op=diff
==============================================================================
--- packages/libauthen-sasl-cyrus-perl/trunk/CHANGES (original)
+++ packages/libauthen-sasl-cyrus-perl/trunk/CHANGES Sun May 7 22:40:00 2006
@@ -1,4 +1,21 @@
History of updates to Authen::SASL::Cyrus
+
+0.13-server
+
+Russ Allbery: the 0.12-server distribution of this module has a typemap that
+ends up casting the pointer return from server_new and client_new through an
+int. This looks like it's causing pointer truncation and various problems on
+some 64-bit platforms (particularly Debian alpha and Debian ia64).
+
+There is a simpler fix than the patch below (just replacing int with long will
+work on most platforms, probably), but reading through the perlxs man page,
+there's apparently a specific way in which one is supposed to handle module
+data T_PTROBJ_SPECIAL. I went ahead and implemented that, which also improves
+error reporting a bit. After applying the following patch, the resulting C
+code no longer casts through an int (it casts through an IV instead, but that's
+sufficient on all Unix platforms at least).
+
+typedef for struct authensasl to Authen_SASL_Cyrus.
0.12-server
merged some of the changes from Authen::SASL::Cyrus 0.12
Modified: packages/libauthen-sasl-cyrus-perl/trunk/Cyrus.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-sasl-cyrus-perl/trunk/Cyrus.pm?rev=2718&op=diff
==============================================================================
--- packages/libauthen-sasl-cyrus-perl/trunk/Cyrus.pm (original)
+++ packages/libauthen-sasl-cyrus-perl/trunk/Cyrus.pm Sun May 7 22:40:00 2006
@@ -5,7 +5,7 @@
@ISA = qw(DynaLoader);# Exporter);
-$VERSION = "0.12-server";
+$VERSION = "0.13-server";
bootstrap Authen::SASL::Cyrus $VERSION;
Modified: packages/libauthen-sasl-cyrus-perl/trunk/Cyrus.xs
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-sasl-cyrus-perl/trunk/Cyrus.xs?rev=2718&op=diff
==============================================================================
--- packages/libauthen-sasl-cyrus-perl/trunk/Cyrus.xs (original)
+++ packages/libauthen-sasl-cyrus-perl/trunk/Cyrus.xs Sun May 7 22:40:00 2006
@@ -139,7 +139,7 @@
#endif
// internal method for handling errors and their messages
-int SetSaslError(struct authensasl *sasl,int code, const char* msg)
+int SetSaslError(Authen_SASL_Cyrus sasl,int code, const char* msg)
{
if (sasl == NULL)
#ifdef SASL2
@@ -933,7 +933,7 @@
*/
static
-void ExtractParentCallbacks(SV *parent, struct authensasl *sasl)
+void ExtractParentCallbacks(SV *parent, Authen_SASL_Cyrus sasl)
{
char *key;
int count=0,i;
@@ -1081,7 +1081,7 @@
}
-int init_sasl (SV* parent,char* service,char* host, struct authensasl **sasl,int client)
+int init_sasl (SV* parent,char* service,char* host, Authen_SASL_Cyrus *sasl,int client)
{
HV *hash;
SV **hashval;
@@ -1096,7 +1096,7 @@
if (*sasl == NULL)
{
// Initialize the given sasl
- *sasl = (struct authensasl *) malloc (sizeof(struct authensasl));
+ *sasl = (Authen_SASL_Cyrus) malloc (sizeof(struct authensasl));
if (*sasl == NULL)
croak("Out of memory\n");
memset(*sasl, 0, sizeof(struct authensasl));
@@ -1148,7 +1148,7 @@
}
#ifdef SASL2
-void set_secprop (struct authensasl *sasl)
+void set_secprop (Authen_SASL_Cyrus sasl)
{
sasl_security_properties_t ssp;
@@ -1194,7 +1194,7 @@
CODE:
{
/* TODO realm parameter */
- struct authensasl *sasl = NULL;
+ Authen_SASL_Cyrus sasl = NULL;
int rc;
if ((rc = init_sasl(parent,service,host,&sasl,SASL_IS_SERVER)) != SASL_OK)
@@ -1263,7 +1263,7 @@
char *ipremoteport
CODE:
{
- struct authensasl *sasl = NULL;
+ Authen_SASL_Cyrus sasl = NULL;
int rc;
if ((rc = init_sasl(parent,service,host,&sasl,SASL_IS_CLIENT)) != SASL_OK)
Modified: packages/libauthen-sasl-cyrus-perl/trunk/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-sasl-cyrus-perl/trunk/META.yml?rev=2718&op=diff
==============================================================================
--- packages/libauthen-sasl-cyrus-perl/trunk/META.yml (original)
+++ packages/libauthen-sasl-cyrus-perl/trunk/META.yml Sun May 7 22:40:00 2006
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Authen-SASL-Cyrus
-version: 0.12-server
+version: 0.13-server
version_from: Cyrus.pm
installdirs: site
requires:
Modified: packages/libauthen-sasl-cyrus-perl/trunk/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-sasl-cyrus-perl/trunk/debian/changelog?rev=2718&op=diff
==============================================================================
--- packages/libauthen-sasl-cyrus-perl/trunk/debian/changelog (original)
+++ packages/libauthen-sasl-cyrus-perl/trunk/debian/changelog Sun May 7 22:40:00 2006
@@ -1,3 +1,9 @@
+libauthen-sasl-cyrus-perl (0.13-server-1) unstable; urgency=low
+
+ * New upstream release.
+
+ --
+
libauthen-sasl-cyrus-perl (0.12-server-4) unstable; urgency=low
* Encode large amounts of data in chunks of SASL_MAXOUTBUF rather than
More information about the Pkg-perl-cvs-commits
mailing list