r2714 - in /packages/libauthen-sasl-cyrus-perl/trunk: ./ debian/
lib/Authen/SASL/Cyrus/ t/
rra at users.alioth.debian.org
rra at users.alioth.debian.org
Sun May 7 21:30:53 UTC 2006
Author: rra
Date: Sun May 7 21:30:52 2006
New Revision: 2714
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=2714
Log:
Load libauthen-sasl-cyrus-perl-0.12-server into
packages/libauthen-sasl-cyrus-perl/trunk.
Added:
packages/libauthen-sasl-cyrus-perl/trunk/debian/
packages/libauthen-sasl-cyrus-perl/trunk/debian/changelog
packages/libauthen-sasl-cyrus-perl/trunk/debian/compat
packages/libauthen-sasl-cyrus-perl/trunk/debian/control
packages/libauthen-sasl-cyrus-perl/trunk/debian/copyright
packages/libauthen-sasl-cyrus-perl/trunk/debian/rules (with props)
packages/libauthen-sasl-cyrus-perl/trunk/debian/watch
Modified:
packages/libauthen-sasl-cyrus-perl/trunk/CHANGES (props changed)
packages/libauthen-sasl-cyrus-perl/trunk/Cyrus.pm (props changed)
packages/libauthen-sasl-cyrus-perl/trunk/Cyrus.pod (contents, props changed)
packages/libauthen-sasl-cyrus-perl/trunk/Cyrus.xs (contents, props changed)
packages/libauthen-sasl-cyrus-perl/trunk/Makefile.PL (props changed)
packages/libauthen-sasl-cyrus-perl/trunk/README (props changed)
packages/libauthen-sasl-cyrus-perl/trunk/lib/Authen/SASL/Cyrus/Security.pm (contents, props changed)
packages/libauthen-sasl-cyrus-perl/trunk/t/plain.t (props changed)
packages/libauthen-sasl-cyrus-perl/trunk/typemap
Propchange: packages/libauthen-sasl-cyrus-perl/trunk/CHANGES
------------------------------------------------------------------------------
--- svn:executable (original)
+++ svn:executable Sun May 7 21:30:52 2006
@@ -1,0 +1,1 @@
+*
Propchange: packages/libauthen-sasl-cyrus-perl/trunk/Cyrus.pm
------------------------------------------------------------------------------
--- svn:executable (original)
+++ svn:executable Sun May 7 21:30:52 2006
@@ -1,0 +1,1 @@
+*
Modified: packages/libauthen-sasl-cyrus-perl/trunk/Cyrus.pod
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-sasl-cyrus-perl/trunk/Cyrus.pod?rev=2714&op=diff
==============================================================================
--- packages/libauthen-sasl-cyrus-perl/trunk/Cyrus.pod (original)
+++ packages/libauthen-sasl-cyrus-perl/trunk/Cyrus.pod Sun May 7 21:30:52 2006
@@ -473,9 +473,9 @@
Cyrus-SASL 2.x support by Leif Johansson
-Glue for server_* and some other structural improvements by Patrick Boettcher <patrick.boettcher at desy.de>
-
-Please report any bugs, or post any suggestions, to the author.
+Glue for server_* and many other structural improvements by Patrick Boettcher <patrick.boettcher at desy.de>
+
+Please report any bugs, or post any suggestions, to the authors.
=head1 THANKS
@@ -485,7 +485,7 @@
=head1 COPYRIGHT
-Copyright (c) 2003-4 Patrick Boettcher, DESY Zeuthen. All rights reserved.
+Copyright (c) 2003-5 Patrick Boettcher, DESY Zeuthen. All rights reserved.
Copyright (c) 2003 Carnegie Mellon University. All rights reserved.
This program is free software; you can redistribute it and/or modify it under
Propchange: packages/libauthen-sasl-cyrus-perl/trunk/Cyrus.pod
------------------------------------------------------------------------------
--- svn:executable (original)
+++ svn:executable Sun May 7 21:30:52 2006
@@ -1,0 +1,1 @@
+*
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=2714&op=diff
==============================================================================
--- packages/libauthen-sasl-cyrus-perl/trunk/Cyrus.xs (original)
+++ packages/libauthen-sasl-cyrus-perl/trunk/Cyrus.xs Sun May 7 21:30:52 2006
@@ -83,6 +83,8 @@
int is_client;
};
+
+typedef struct authensasl * Authen_SASL_Cyrus;
struct _perlcontext {
SV *func;
@@ -1181,7 +1183,7 @@
=cut
-struct authensasl *
+Authen_SASL_Cyrus
server_new(pkg, parent, service, host = NULL, iplocalport=NULL, ipremoteport=NULL ...)
char *pkg
SV *parent
@@ -1251,7 +1253,7 @@
=cut
-struct authensasl *
+Authen_SASL_Cyrus
client_new(pkg, parent, service, host, iplocalport = NULL, ipremoteport = NULL...)
char *pkg
SV *parent
@@ -1300,7 +1302,7 @@
char *
server_start(sasl,instring=NULL)
- struct authensasl *sasl;
+ Authen_SASL_Cyrus sasl;
const char *instring;
PREINIT:
int rc;
@@ -1350,7 +1352,7 @@
char *
client_start(sasl)
- struct authensasl *sasl
+ Authen_SASL_Cyrus sasl
PREINIT:
int rc;
unsigned outlen;
@@ -1390,7 +1392,7 @@
char *
server_step(sasl, instring)
- struct authensasl *sasl
+ Authen_SASL_Cyrus sasl
char *instring
PREINIT:
#ifdef SASL2
@@ -1444,7 +1446,7 @@
char *
client_step(sasl, instring)
- struct authensasl *sasl
+ Authen_SASL_Cyrus sasl
char *instring
PPCODE:
{
@@ -1487,7 +1489,7 @@
char *
listmech(sasl,start="",separator="|",end="")
- struct authensasl *sasl;
+ Authen_SASL_Cyrus sasl;
const char* start;
const char* separator;
const char* end;
@@ -1536,7 +1538,7 @@
int
setpass(sasl, user, pass, oldpass, flags=0)
- struct authensasl *sasl;
+ Authen_SASL_Cyrus sasl;
const char *user;
const char *pass;
const char *oldpass;
@@ -1553,7 +1555,7 @@
int checkpass(sasl,user,pass)
- struct authensasl *sasl;
+ Authen_SASL_Cyrus sasl;
const char *user;
const char *pass;
PREINIT:
@@ -1578,7 +1580,7 @@
void
global_listmech(sasl)
- struct authensasl *sasl
+ Authen_SASL_Cyrus sasl
PREINIT:
int i;
const char **mechs;
@@ -1612,7 +1614,7 @@
char *
encode(sasl, instring)
- struct authensasl *sasl
+ Authen_SASL_Cyrus sasl
char *instring
PPCODE:
{
@@ -1640,7 +1642,7 @@
char *
decode(sasl, instring)
- struct authensasl *sasl
+ Authen_SASL_Cyrus sasl
char *instring
PPCODE:
{
@@ -1669,7 +1671,7 @@
int
callback(sasl, ...)
- struct authensasl *sasl
+ Authen_SASL_Cyrus sasl
CODE:
/*
This function is unnecessary since there is no
@@ -1702,7 +1704,7 @@
char *
error(sasl)
- struct authensasl *sasl
+ Authen_SASL_Cyrus sasl
PPCODE:
{
_DEBUG("Current Error %x",sasl->error_code);
@@ -1736,7 +1738,7 @@
int
code(sasl)
- struct authensasl *sasl
+ Authen_SASL_Cyrus sasl
CODE:
RETVAL=sasl->error_code;
OUTPUT:
@@ -1753,7 +1755,7 @@
char *
mechanism(sasl)
- struct authensasl *sasl
+ Authen_SASL_Cyrus sasl
CODE:
RETVAL = sasl->mech;
OUTPUT:
@@ -1763,7 +1765,7 @@
char *
host(sasl, ...)
- struct authensasl *sasl
+ Authen_SASL_Cyrus sasl
CODE:
if (items > 1) {
if (sasl->server) free(sasl->server);
@@ -1777,7 +1779,7 @@
char *
user(sasl, ...)
- struct authensasl *sasl
+ Authen_SASL_Cyrus sasl
CODE:
if (items > 1) {
if (sasl->user) free(sasl->user);
@@ -1791,7 +1793,7 @@
char *
service(sasl, ...)
- struct authensasl *sasl
+ Authen_SASL_Cyrus sasl
CODE:
if (items > 1) {
if (sasl->service) free(sasl->service);
@@ -1814,7 +1816,7 @@
int
need_step(sasl)
- struct authensasl *sasl;
+ Authen_SASL_Cyrus sasl;
CODE:
RETVAL = sasl->error_code == SASL_CONTINUE;
OUTPUT:
@@ -1823,7 +1825,7 @@
int
property(sasl, ...)
-struct authensasl *sasl
+Authen_SASL_Cyrus sasl
PPCODE:
{
#ifdef SASL2
@@ -1924,7 +1926,7 @@
void
DESTROY(sasl)
- struct authensasl *sasl
+ Authen_SASL_Cyrus sasl
CODE:
{
__DEBUG("DESTROY");
Propchange: packages/libauthen-sasl-cyrus-perl/trunk/Cyrus.xs
------------------------------------------------------------------------------
--- svn:executable (original)
+++ svn:executable Sun May 7 21:30:52 2006
@@ -1,0 +1,1 @@
+*
Propchange: packages/libauthen-sasl-cyrus-perl/trunk/Makefile.PL
------------------------------------------------------------------------------
--- svn:executable (original)
+++ svn:executable Sun May 7 21:30:52 2006
@@ -1,0 +1,1 @@
+*
Propchange: packages/libauthen-sasl-cyrus-perl/trunk/README
------------------------------------------------------------------------------
--- svn:executable (original)
+++ svn:executable Sun May 7 21:30:52 2006
@@ -1,0 +1,1 @@
+*
Added: 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=2714&op=file
==============================================================================
--- packages/libauthen-sasl-cyrus-perl/trunk/debian/changelog (added)
+++ packages/libauthen-sasl-cyrus-perl/trunk/debian/changelog Sun May 7 21:30:52 2006
@@ -1,0 +1,98 @@
+libauthen-sasl-cyrus-perl (0.12-server-4) unstable; urgency=low
+
+ * Encode large amounts of data in chunks of SASL_MAXOUTBUF rather than
+ trying to encode all the data at once.
+ * Providing binary-indep in debian/rules is required by Policy even if
+ there are no arch-independent packages. Whoops.
+
+ -- Russ Allbery <rra at debian.org> Wed, 7 Dec 2005 12:42:42 -0800
+
+libauthen-sasl-cyrus-perl (0.12-server-3) unstable; urgency=low
+
+ * Use a better technique for optionally running make realclean.
+ * Remove unused rules in debian/rules.
+ * Reformat debian/copyright and add an explicit copyright and license
+ for the Debian packaging.
+ * Update maintainer address.
+
+ -- Russ Allbery <rra at debian.org> Sat, 19 Nov 2005 16:30:35 -0800
+
+libauthen-sasl-cyrus-perl (0.12-server-2) unstable; urgency=low
+
+ * Redo how library data is handled following the recommendations in
+ perlxs(1), eliminating a cast of a pointer through an int and thereby
+ hopefully fixing problems on 64-bit platforms.
+ * Explicitly set USER when running the test suite. The value doesn't
+ matter for the tests, and some package build methods (debuild) strip
+ the environment.
+ * Update standards version to 3.6.2 (no changes required).
+ * Reduce priority to extra again after consultation with ftp-masters.
+
+ -- Russ Allbery <rra at stanford.edu> Wed, 29 Jun 2005 17:08:35 -0700
+
+libauthen-sasl-cyrus-perl (0.12-server-1) unstable; urgency=low
+
+ * Adopt orphaned package. (Closes: #279776)
+ * Acknowledge NMU. (Closes: #250520, #288569)
+ * Switch upstreams to the -server varient maintained by Patrick
+ Boettcher. It implements considerably more of the API and is
+ sufficient for stable use with Net::LDAP for GSSAPI authentication,
+ which the CPAN version is not.
+ * Reorganize debian/rules, set CFLAGS correctly, add an explicit install
+ target, and remove unnecessary debhelper invocations.
+ * Improve the description and include a Homepage link.
+ * Increase priority to optional.
+ * Add build-depends on libauthen-sasl-perl and libsasl2-modules for
+ running tests.
+ * Update standards version to 3.6.1 (no changes required).
+ * Update copyright to include the packaging history and the copyright
+ and upstream details for the -server varient.
+ * Add a watch file.
+
+ -- Russ Allbery <rra at stanford.edu> Sun, 12 Jun 2005 16:10:13 -0700
+
+libauthen-sasl-cyrus-perl (0.12-1) unstable; urgency=low
+
+ * QA Upload
+ * Changed Maintainer to Debian QA Group <packages at qa.debian.org>
+ * Changed Section from 'interpreters' to 'perl' to match override.
+ * Added dependency on libauthen-sasl-perl, closes: #288569.
+ * New upstream version - various bug fixes - closes: #250520.
+
+ -- Stephen Quinney <stephen at jadevine.org.uk> Wed, 2 Mar 2005 17:30:38 +0000
+
+libauthen-sasl-cyrus-perl (0.07-1) unstable; urgency=low
+
+ * New Maintainer
+
+ -- Stephen Zander <gibreel at debian.org> Mon, 26 May 2003 21:53:35 -0700
+
+libauthen-sasl-cyrus-perl (0.05-2) unstable; urgency=low
+
+ * Orphan this package.
+ * Run dh_installdocs so that the copyright file gets installed.
+
+ -- Mark Brown <broonie at debian.org> Thu, 15 May 2003 09:10:02 +0100
+
+libauthen-sasl-cyrus-perl (0.05-1) unstable; urgency=low
+
+ * New upstream release.
+ * I think this version now does encryption with the SASL libraries
+ -- if not, feel free to open the bug again. (Closes: #144130)
+ * Update Standards-Version.
+
+ -- Graeme Mathieson <mathie at wossname.org.uk> Sun, 29 Sep 2002 16:14:28 +0100
+
+libauthen-sasl-cyrus-perl (0.02-1.1) unstable; urgency=low
+
+ * NMU: Rebuilt against perl 5.8.
+
+ -- Ben Burton <benb at acm.org> Sun, 1 Sep 2002 15:48:33 +1000
+
+libauthen-sasl-cyrus-perl (0.02-1) unstable; urgency=low
+
+ * Initial Release.
+
+ -- Graeme Mathieson <graeme at mathie.cx> Thu, 22 Nov 2001 15:50:41 +0000
+
+
Added: packages/libauthen-sasl-cyrus-perl/trunk/debian/compat
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-sasl-cyrus-perl/trunk/debian/compat?rev=2714&op=file
==============================================================================
--- packages/libauthen-sasl-cyrus-perl/trunk/debian/compat (added)
+++ packages/libauthen-sasl-cyrus-perl/trunk/debian/compat Sun May 7 21:30:52 2006
@@ -1,0 +1,1 @@
+4
Added: packages/libauthen-sasl-cyrus-perl/trunk/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-sasl-cyrus-perl/trunk/debian/control?rev=2714&op=file
==============================================================================
--- packages/libauthen-sasl-cyrus-perl/trunk/debian/control (added)
+++ packages/libauthen-sasl-cyrus-perl/trunk/debian/control Sun May 7 21:30:52 2006
@@ -1,0 +1,19 @@
+Source: libauthen-sasl-cyrus-perl
+Section: perl
+Priority: extra
+Build-Depends: debhelper (>> 4.1), perl (>> 5.8), libauthen-sasl-perl, libsasl2-dev, libsasl2-modules
+Maintainer: Russ Allbery <rra at debian.org>
+Standards-Version: 3.6.2
+
+Package: libauthen-sasl-cyrus-perl
+Architecture: any
+Depends: ${perl:Depends}, ${shlibs:Depends}, libauthen-sasl-perl
+Description: Perl extension for Cyrus SASL library
+ This module provides an Perl interface to the Cyrus implementation of
+ SASL. It works with the existing Authen::SASL implementation, has been
+ tested with Net::LDAP, and provides the GSSAPI authentication layer.
+ .
+ This version of the Authen::SASL::Cyrus includes an interface to the
+ server-side functionality of the SASL library.
+ .
+ Homepage: http://www.wi-bw.tfh-wildau.de/~pboettch/home/index.php?site=asc
Added: packages/libauthen-sasl-cyrus-perl/trunk/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-sasl-cyrus-perl/trunk/debian/copyright?rev=2714&op=file
==============================================================================
--- packages/libauthen-sasl-cyrus-perl/trunk/debian/copyright (added)
+++ packages/libauthen-sasl-cyrus-perl/trunk/debian/copyright Sun May 7 21:30:52 2006
@@ -1,0 +1,42 @@
+Debianized by Graeme Mathieson <graeme at mathie.cx> 2001-11-22
+Adopted by Stephen Zander <gibreel at debian.org> 2003-05-27
+Updated by Stephen Quinney <stephen at jadevine.org.uk> 2005-03-02
+Adopted by Russ Allbery <rra at debian.org> 2005-06-12
+
+Packaging of the -server variant based on previous packages by Huaqing
+Zheng <morpheus at stanford.edu>.
+
+It was downloaded from:
+
+ <http://www.wi-bw.tfh-wildau.de/~pboettch/home/index.php?site=asc>
+
+Upstream author:
+
+ Patrick Boettcher <patrick.boettcher at desy.de>
+
+Debian packaging copyright:
+
+ Changes by Graeme Mathieson, Stephen Zander, and Stephen Quinney
+ did not have explicit copyright statements. See the Debian changelog
+ for the dates of changes. Presumably all their changes may be
+ redistributed under the same terms as Authen::SASL::Cyrus itself.
+
+ Changes and packaging by Russ Allbery and Huaqing Zheng are copyright
+ 2004, 2005 Board of Trustees, Leland Stanford Jr. University and may
+ be redistributed and/or modified under the same terms as
+ Authen::SASL::Cyrus.
+
+Copyright:
+
+ Copyright (c) 2003-5 Patrick Boettcher, DESY Zeuthen. All rights
+ reserved.
+ Copyright (c) 2003 Carnegie Mellon University. All rights reserved.
+ Originally written by Mark Adamson <mark at nb.net>.
+
+ This module is free software; you can redistribute it and/or modify it
+ under the same terms as Perl itself.
+
+Perl is distributed under either the Artistic License or the GPL. The
+full text of the GPL is available in Debian systems in
+/usr/share/common-licenses/GPL. The full text of the Artistic License is
+available on Debian systems in /usr/share/common-licenses/Artistic.
Added: packages/libauthen-sasl-cyrus-perl/trunk/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-sasl-cyrus-perl/trunk/debian/rules?rev=2714&op=file
==============================================================================
--- packages/libauthen-sasl-cyrus-perl/trunk/debian/rules (added)
+++ packages/libauthen-sasl-cyrus-perl/trunk/debian/rules Sun May 7 21:30:52 2006
@@ -1,0 +1,67 @@
+#! /usr/bin/make -f
+
+# Uncomment this to turn on verbose mode.
+#export DH_VERBOSE=1
+
+# If set to a true value then MakeMaker's prompt function will
+# always return the default without waiting for user input.
+export PERL_MM_USE_DEFAULT=1
+
+PACKAGE := libauthen-sasl-cyrus-perl
+PREFIX := $(CURDIR)/debian/$(PACKAGE)/usr
+PERL ?= /usr/bin/perl
+
+# Allow disabling build optimation by setting noopt in $DEB_BUILD_OPTIONS.
+CFLAGS = -Wall -g
+ifneq (,$(findstring noopt,$(DEB_BUILD_OPTIONS)))
+ CFLAGS += -O0
+else
+ CFLAGS += -O2
+endif
+
+build: build-stamp
+build-stamp:
+ dh_testdir
+ $(PERL) Makefile.PL INSTALLDIRS=vendor LIBS="-lsasl2" DEFINE="-DSASL2"
+ $(MAKE) OPTIMIZE="$(CFLAGS)" LD_RUN_PATH=""
+ touch build-stamp
+
+clean:
+ dh_testdir
+ dh_testroot
+ifeq (Makefile,$(wildcard Makefile))
+ $(MAKE) realclean
+endif
+ chmod -R u+w $(CURDIR)
+ dh_clean build-stamp install-stamp
+
+install: install-stamp
+install-stamp:
+ dh_testdir
+ dh_testroot
+ dh_clean -k
+ USER=testuser $(MAKE) test
+ $(MAKE) install PREFIX=$(PREFIX)
+ chmod 644 $(PREFIX)/lib/perl5/Authen/SASL/Cyrus.pod
+ rmdir --ignore-fail-on-non-empty --parents $(PREFIX)/share/perl5
+ touch install-stamp
+
+binary-arch: build install
+ dh_testdir
+ dh_testroot
+ dh_installdocs README
+ dh_installchangelogs CHANGES
+ dh_perl
+ dh_link
+ dh_strip
+ dh_compress
+ dh_fixperms
+ dh_shlibdeps
+ dh_installdeb
+ dh_gencontrol
+ dh_md5sums
+ dh_builddeb
+
+binary-indep:
+binary: binary-arch binary-indep
+.PHONY: binary binary-arch binary-indep build clean install
Propchange: packages/libauthen-sasl-cyrus-perl/trunk/debian/rules
------------------------------------------------------------------------------
svn:executable = *
Added: packages/libauthen-sasl-cyrus-perl/trunk/debian/watch
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-sasl-cyrus-perl/trunk/debian/watch?rev=2714&op=file
==============================================================================
--- packages/libauthen-sasl-cyrus-perl/trunk/debian/watch (added)
+++ packages/libauthen-sasl-cyrus-perl/trunk/debian/watch Sun May 7 21:30:52 2006
@@ -1,0 +1,5 @@
+# watch -- Rules for uscan to find new upstream versions.
+
+version=3
+http://www.wi-bw.tfh-wildau.de/~pboettch/home/index.php?site=asc \
+ Authen-SASL-Cyrus/Authen-SASL-Cyrus-(\d[\d\w.-]+)\.tar\.gz
Modified: packages/libauthen-sasl-cyrus-perl/trunk/lib/Authen/SASL/Cyrus/Security.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-sasl-cyrus-perl/trunk/lib/Authen/SASL/Cyrus/Security.pm?rev=2714&op=diff
==============================================================================
--- packages/libauthen-sasl-cyrus-perl/trunk/lib/Authen/SASL/Cyrus/Security.pm (original)
+++ packages/libauthen-sasl-cyrus-perl/trunk/lib/Authen/SASL/Cyrus/Security.pm Sun May 7 21:30:52 2006
@@ -73,11 +73,27 @@
# all the data to be encrypted is immediately available
sub WRITE {
my($ref,$string,$len) = @_;
- my($fh, $clearbuf, $cryptbuf);
+ my($fh, $clearbuf, $cryptbuf, $maxbuf);
$fh = $ref->{fh};
$clearbuf = substr($string, 0, $len);
- $cryptbuf = $ref->{conn}->encode($clearbuf);
+ $maxbuf = $ref->{conn}->property("maxout");
+ if ($len < $maxbuf) {
+ $cryptbuf = $ref->{conn}->encode($clearbuf);
+ return(-1) if not defined ($cryptbuf);
+ } else {
+ my ($partial, $chunk, $chunksize);
+ my $offset = 0;
+ $cryptbuf = '';
+ while ($offset < $len) {
+ $chunksize = (($offset + $maxbuf) > $len) ? $len - $offset : $maxbuf;
+ $chunk = substr($clearbuf, $offset, $chunksize);
+ $partial = $ref->{conn}->encode($chunk);
+ return(-1) if not defined ($partial);
+ $cryptbuf .= $partial;
+ $offset += $chunksize;
+ }
+ }
print $fh $cryptbuf;
}
Propchange: packages/libauthen-sasl-cyrus-perl/trunk/lib/Authen/SASL/Cyrus/Security.pm
------------------------------------------------------------------------------
--- svn:executable (original)
+++ svn:executable Sun May 7 21:30:52 2006
@@ -1,0 +1,1 @@
+*
Propchange: packages/libauthen-sasl-cyrus-perl/trunk/t/plain.t
------------------------------------------------------------------------------
--- svn:executable (original)
+++ svn:executable Sun May 7 21:30:52 2006
@@ -1,0 +1,1 @@
+*
Modified: packages/libauthen-sasl-cyrus-perl/trunk/typemap
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libauthen-sasl-cyrus-perl/trunk/typemap?rev=2714&op=diff
==============================================================================
--- packages/libauthen-sasl-cyrus-perl/trunk/typemap (original)
+++ packages/libauthen-sasl-cyrus-perl/trunk/typemap Sun May 7 21:30:52 2006
@@ -1,15 +1,17 @@
TYPEMAP
-struct authensasl * AuthenSASLtype
+Authen_SASL_Cyrus T_PTROBJ_SPECIAL
const char * T_PV
INPUT
-AuthenSASLtype
- if ((SvTYPE($arg) != SVt_RV) && (SvTYPE($arg) != SVt_PVMG)) {
- printf(\"First parameter was not a reference. It was type %d\\n\", SvTYPE($arg));
- XSRETURN(0);
- }
- $var = (struct authensasl *)SvIV(SvRV($arg));
+T_PTROBJ_SPECIAL
+ if (sv_derived_from($arg, \"${(my $ntt=$ntype)=~s/_/::/g; \$ntt}\")) {
+ IV tmp = SvIV((SV*)SvRV($arg));
+ $var = ($type) tmp;
+ }
+ else
+ croak(\"$var is not of type ${(my $ntt=$ntype)=~s /_/::/g;\$ntt}\")
OUTPUT
-AuthenSASLtype
- sv_setref_iv($arg, "Authen::SASL::Cyrus", (int)$var);
+T_PTROBJ_SPECIAL
+ sv_setref_pv($arg, \"${(my $ntt=$ntype)=~s/_/::/g;\$ntt}\",
+ (void*)$var);
More information about the Pkg-perl-cvs-commits
mailing list