r58900 - in /trunk/libgssapi-perl: Changes GSSAPI.pm GSSAPI.xs MANIFEST META.yml README debian/changelog debian/patches/ t/inquire_cred.t t/test.t t/zbugfixes.t typemap xs/OID.xs
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Sat Jun 5 14:43:47 UTC 2010
Author: ansgar-guest
Date: Sat Jun 5 14:43:29 2010
New Revision: 58900
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=58900
Log:
* New upstream release.
* Drop patch spelling.patch: Applied upstream.
Added:
trunk/libgssapi-perl/t/inquire_cred.t
- copied unchanged from r58899, branches/upstream/libgssapi-perl/current/t/inquire_cred.t
Removed:
trunk/libgssapi-perl/debian/patches/
Modified:
trunk/libgssapi-perl/Changes
trunk/libgssapi-perl/GSSAPI.pm
trunk/libgssapi-perl/GSSAPI.xs
trunk/libgssapi-perl/MANIFEST
trunk/libgssapi-perl/META.yml
trunk/libgssapi-perl/README
trunk/libgssapi-perl/debian/changelog
trunk/libgssapi-perl/t/test.t
trunk/libgssapi-perl/t/zbugfixes.t
trunk/libgssapi-perl/typemap
trunk/libgssapi-perl/xs/OID.xs
Modified: trunk/libgssapi-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgssapi-perl/Changes?rev=58900&op=diff
==============================================================================
--- trunk/libgssapi-perl/Changes (original)
+++ trunk/libgssapi-perl/Changes Sat Jun 5 14:43:29 2010
@@ -154,3 +154,8 @@
Thanks to Andrew Savchenko bircoph at gmail.com
- Changed sizeof(outputtype) to 0 to let Perl calculate the lengh
in Name.xs. Thanks to Zoltan BANAI <Zoltan.Banai at morganstanley.com>
+
+0.28 Do 3. Jun 12:11:21 UTC 2010
+ - Fixed Lenght-problem in typemap, T_BUFFER_STR_OUT for Heimdal.
+ Thanks to Slaven Rezic <slaven at rezic.de> for report and patch.
+
Modified: trunk/libgssapi-perl/GSSAPI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgssapi-perl/GSSAPI.pm?rev=58900&op=diff
==============================================================================
--- trunk/libgssapi-perl/GSSAPI.pm (original)
+++ trunk/libgssapi-perl/GSSAPI.pm Sat Jun 5 14:43:29 2010
@@ -9,7 +9,7 @@
use XSLoader;
our @ISA = qw(Exporter);
-our $VERSION = '0.27';
+our $VERSION = '0.28';
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
@@ -214,7 +214,7 @@
This module wraps the GSSAPI C-Bindings. If you are
new to GSSAPI it is a good idea to read RFC2743 and RFC2744,
-the documentation requires you to be familar with the concept
+the documentation requires you to be familiar with the concept
and the wordings of GSSAPI programming.
the examples directory holds some working examples of usage:
Modified: trunk/libgssapi-perl/GSSAPI.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgssapi-perl/GSSAPI.xs?rev=58900&op=diff
==============================================================================
--- trunk/libgssapi-perl/GSSAPI.xs (original)
+++ trunk/libgssapi-perl/GSSAPI.xs Sat Jun 5 14:43:29 2010
@@ -155,6 +155,7 @@
typedef void * GSSAPI_obj;
+typedef gss_buffer_desc gss_oidstr_out;
int
oid_set_is_dynamic(GSSAPI__OID__Set oidset)
Modified: trunk/libgssapi-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgssapi-perl/MANIFEST?rev=58900&op=diff
==============================================================================
--- trunk/libgssapi-perl/MANIFEST (original)
+++ trunk/libgssapi-perl/MANIFEST Sat Jun 5 14:43:29 2010
@@ -28,3 +28,4 @@
t/importnames.t
t/indicatemechs.t
ppport.h
+t/inquire_cred.t
Modified: trunk/libgssapi-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgssapi-perl/META.yml?rev=58900&op=diff
==============================================================================
--- trunk/libgssapi-perl/META.yml (original)
+++ trunk/libgssapi-perl/META.yml Sat Jun 5 14:43:29 2010
@@ -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: GSSAPI
-version: 0.27
+version: 0.28
version_from: GSSAPI.pm
installdirs: site
requires:
Modified: trunk/libgssapi-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgssapi-perl/README?rev=58900&op=diff
==============================================================================
--- trunk/libgssapi-perl/README (original)
+++ trunk/libgssapi-perl/README Sat Jun 5 14:43:29 2010
@@ -1,4 +1,4 @@
-GSSAPI Perlbindings version 0.27
+GSSAPI Perlbindings version 0.28
=================================
GSSAPI - Perl extension for using
GSSAPI C-Bindings as described in RFC 2744.
@@ -9,10 +9,13 @@
- heimdal 0.6.2
- heimdal 0.7.1
+- heimdal 1.0.1
+- heimdal 1.3.2
- MIT Kerberos 5 release 1.5.2
- MIT Kerberos 5 release 1.4.3
- MIT Kerberos 5 release 1.3.1
- MIT Kerberos 5 release 1.2.7
+- MIT Kerberos 5 release 1.6.3
- VAS 3.0.1
- Solaris 10 / Opensolaris native gss library
Modified: trunk/libgssapi-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgssapi-perl/debian/changelog?rev=58900&op=diff
==============================================================================
--- trunk/libgssapi-perl/debian/changelog (original)
+++ trunk/libgssapi-perl/debian/changelog Sat Jun 5 14:43:29 2010
@@ -1,3 +1,10 @@
+libgssapi-perl (0.28-1) unstable; urgency=low
+
+ * New upstream release.
+ * Drop patch spelling.patch: Applied upstream.
+
+ -- Ansgar Burchardt <ansgar at 43-1.org> Sat, 05 Jun 2010 23:43:09 +0900
+
libgssapi-perl (0.27-1) unstable; urgency=low
[ gregor herrmann ]
Modified: trunk/libgssapi-perl/t/test.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgssapi-perl/t/test.t?rev=58900&op=diff
==============================================================================
--- trunk/libgssapi-perl/t/test.t (original)
+++ trunk/libgssapi-perl/t/test.t Sat Jun 5 14:43:29 2010
@@ -5,7 +5,7 @@
use ExtUtils::testlib;
use GSSAPI qw(:all);
-use Test::More tests => 19;
+use Test::More tests => 13;
my $status;
@@ -26,7 +26,8 @@
$status = $oid->to_str($str);
ok($status, ' $oid->to_str($str) ');
- ok($str eq '{ 1 2 840 113554 1 2 1 1 }', q{ $str eq '{ 1 2 840 113554 1 2 1 1 }' });
+ cmp_ok($str, 'eq', '{ 1 2 840 113554 1 2 1 1 }', q{ $str eq '{ 1 2 840 113554 1 2 1 1 }' });
+
}
{ my(@oidss); foreach(1..1000) { push @oidss, GSSAPI::OID::Set->new() };
@@ -111,37 +112,6 @@
}
ok($okay, 'random types and values as input of GSSAPI::Binding');
-#
-# GSSAPI::Cred
-#
-
- my($cred1, $time, $name );
-
- $status = GSSAPI::Cred::acquire_cred(undef, 120, undef, GSS_C_INITIATE,
- $cred1, $oidset, $time);
-
-SKIP: {
- if ( $status->major != GSS_S_COMPLETE ) {
- diag( "\n\nNo error: acquire_cred() failed, maybe because you have to run kinit first.\n",
- "Errormessage from your GSSAPI-implementation is: \n\n" . $status ,
- "\nrun kinit to get a TGT and retry this test (just skipping now).\n\n");
- skip( 'This tests only work if user has run kinit succesfully' , 6 );
- }
- ok($status, 'GSSAPI::Cred::acquire_cred');
- ok(ref $cred1 eq "GSSAPI::Cred");
- ok(ref $oidset eq "GSSAPI::OID::Set");
-
- my($lifetime, $cred_usage);
- $status = $cred1->inquire_cred($name, $lifetime, $cred_usage, $oidset);
-
-
-
- ok( $status, '$cred1->inquire_cred($name, $lifetime, $cred_usage, $oidset' );
-
- ok(ref $oidset eq "GSSAPI::OID::Set");
- ok($cred_usage & GSS_C_INITIATE);
-
-}
Modified: trunk/libgssapi-perl/t/zbugfixes.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgssapi-perl/t/zbugfixes.t?rev=58900&op=diff
==============================================================================
--- trunk/libgssapi-perl/t/zbugfixes.t (original)
+++ trunk/libgssapi-perl/t/zbugfixes.t Sat Jun 5 14:43:29 2010
@@ -30,9 +30,7 @@
if ( $status->major != GSS_S_COMPLETE ) {
skip('$name->display() failed', 1 );
}
- ok ( $keystring eq lc $display,
- 'check bugfix of <http://rt.cpan.org/Public/Bug/Display.html?id=5681>');
-
+ cmp_ok ( lc $display, 'eq', $keystring, 'check bugfix of <http://rt.cpan.org/Public/Bug/Display.html?id=5681>');
}
}
}
Modified: trunk/libgssapi-perl/typemap
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgssapi-perl/typemap?rev=58900&op=diff
==============================================================================
--- trunk/libgssapi-perl/typemap (original)
+++ trunk/libgssapi-perl/typemap Sat Jun 5 14:43:29 2010
@@ -46,6 +46,7 @@
gss_buffer_desc_copy T_BUFFER_DESC_COPY
gss_buffer_str T_BUFFER_STR
gss_buffer_str_out T_BUFFER_STR_OUT
+gss_oidstr_out T_BUFFER_OIDSTR_OUT
gss_cred_usage_t T_IV
gss_qop_t T_UV
OM_uint32 T_U_LONG
@@ -179,6 +180,11 @@
$var.length = 0;
$var.value = NULL;
+T_BUFFER_OIDSTR_OUT
+ $var.length = 0;
+ $var.value = NULL;
+
+
OUTPUT
@@ -282,7 +288,7 @@
T_BUFFER_STR_OUT
if ($var.value != NULL) {
- sv_setpv($arg, $var.value);
+ sv_setpvn($arg, $var.value, $var.length);
SvSETMAGIC($arg);
} else {
sv_setsv_mg($arg, &PL_sv_undef);
@@ -292,7 +298,17 @@
gss_release_buffer(&minor, &$var);
}
-
+T_BUFFER_OIDSTR_OUT
+ if ($var.value != NULL) {
+ sv_setpv($arg, $var.value );
+ SvSETMAGIC($arg);
+ } else {
+ sv_setsv_mg($arg, &PL_sv_undef);
+ }
+ {
+ OM_uint32 minor;
+ gss_release_buffer(&minor, &$var);
+ }
#
# Okay, what do all these different typemaps do? Anything that
Modified: trunk/libgssapi-perl/xs/OID.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgssapi-perl/xs/OID.xs?rev=58900&op=diff
==============================================================================
--- trunk/libgssapi-perl/xs/OID.xs (original)
+++ trunk/libgssapi-perl/xs/OID.xs Sat Jun 5 14:43:29 2010
@@ -47,7 +47,7 @@
GSSAPI::Status
to_str(oid, str)
GSSAPI::OID oid
- gss_buffer_str_out str
+ gss_oidstr_out str
CODE:
if (oid == NULL) {
sv_setsv_mg(ST(1), &PL_sv_undef);
More information about the Pkg-perl-cvs-commits
mailing list