r5779 - in /packages/libcrypt-openssl-x509-perl/branches/upstream/current: Changes MANIFEST META.yml Makefile.PL X509.pm X509.xs inc/
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Sat Jul 14 20:19:40 UTC 2007
Author: gregoa-guest
Date: Sat Jul 14 20:19:40 2007
New Revision: 5779
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=5779
Log:
[svn-upgrade] Integrating new upstream version, libcrypt-openssl-x509-perl (0.5)
Removed:
packages/libcrypt-openssl-x509-perl/branches/upstream/current/inc/
Modified:
packages/libcrypt-openssl-x509-perl/branches/upstream/current/Changes
packages/libcrypt-openssl-x509-perl/branches/upstream/current/MANIFEST
packages/libcrypt-openssl-x509-perl/branches/upstream/current/META.yml
packages/libcrypt-openssl-x509-perl/branches/upstream/current/Makefile.PL
packages/libcrypt-openssl-x509-perl/branches/upstream/current/X509.pm
packages/libcrypt-openssl-x509-perl/branches/upstream/current/X509.xs
Modified: packages/libcrypt-openssl-x509-perl/branches/upstream/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcrypt-openssl-x509-perl/branches/upstream/current/Changes?rev=5779&op=diff
==============================================================================
--- packages/libcrypt-openssl-x509-perl/branches/upstream/current/Changes (original)
+++ packages/libcrypt-openssl-x509-perl/branches/upstream/current/Changes Sat Jul 14 20:19:40 2007
@@ -1,4 +1,8 @@
Revision history for Perl extension Crypt::OpenSSL::X509.
+
+0.5 Sat Jun 2 11:12:03 PDT 2007
+
+ - Fix manifest.
0.4 Wed Jan 3 17:19:10 PST 2007
Modified: packages/libcrypt-openssl-x509-perl/branches/upstream/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcrypt-openssl-x509-perl/branches/upstream/current/MANIFEST?rev=5779&op=diff
==============================================================================
--- packages/libcrypt-openssl-x509-perl/branches/upstream/current/MANIFEST (original)
+++ packages/libcrypt-openssl-x509-perl/branches/upstream/current/MANIFEST Sat Jul 14 20:19:40 2007
@@ -11,18 +11,3 @@
certs/thawte.pem
certs/vsign1.pem
META.yml Module meta-data (added by MakeMaker)
-inc
-inc/Module
-inc/Module/Install.pm
-inc/Module/Install
-inc/Module/Install/Metadata.pm
-inc/Module/Install/Base.pm
-inc/Module/Install/Compiler.pm
-inc/Module/Install/Makefile.pm
-inc/Module/Install/AutoInstall.pm
-inc/Module/Install/Include.pm
-inc/Module/Install/WriteAll.pm
-inc/Module/Install/Win32.pm
-inc/Module/Install/Can.pm
-inc/Module/Install/Fetch.pm
-inc/Module/AutoInstall.pm
Modified: packages/libcrypt-openssl-x509-perl/branches/upstream/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcrypt-openssl-x509-perl/branches/upstream/current/META.yml?rev=5779&op=diff
==============================================================================
--- packages/libcrypt-openssl-x509-perl/branches/upstream/current/META.yml (original)
+++ packages/libcrypt-openssl-x509-perl/branches/upstream/current/META.yml Sat Jul 14 20:19:40 2007
@@ -1,7 +1,7 @@
abstract: Perl extension to OpenSSL's X509 API.
author: 'Dan Sully, <daniel at cpan.org>'
distribution_type: module
-generated_by: Module::Install version 0.63
+generated_by: Module::Install version 0.64
license: perl
name: Crypt-OpenSSL-X509
no_index:
@@ -10,4 +10,4 @@
- t
requires:
perl: 5.005
-version: 0.4
+version: 0.5
Modified: packages/libcrypt-openssl-x509-perl/branches/upstream/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcrypt-openssl-x509-perl/branches/upstream/current/Makefile.PL?rev=5779&op=diff
==============================================================================
--- packages/libcrypt-openssl-x509-perl/branches/upstream/current/Makefile.PL (original)
+++ packages/libcrypt-openssl-x509-perl/branches/upstream/current/Makefile.PL Sat Jul 14 20:19:40 2007
@@ -8,6 +8,7 @@
all_from('X509.pm');
cc_lib_links('crypto');
+cc_optimize_flags('-g -Wall');
auto_install();
WriteAll();
Modified: packages/libcrypt-openssl-x509-perl/branches/upstream/current/X509.pm
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcrypt-openssl-x509-perl/branches/upstream/current/X509.pm?rev=5779&op=diff
==============================================================================
--- packages/libcrypt-openssl-x509-perl/branches/upstream/current/X509.pm (original)
+++ packages/libcrypt-openssl-x509-perl/branches/upstream/current/X509.pm Sat Jul 14 20:19:40 2007
@@ -5,7 +5,7 @@
use Exporter;
use base qw(Exporter);
-$VERSION = '0.4';
+$VERSION = '0.5';
@EXPORT_OK = qw(
FORMAT_UNDEF FORMAT_ASN1 FORMAT_TEXT FORMAT_PEM FORMAT_NETSCAPE
Modified: packages/libcrypt-openssl-x509-perl/branches/upstream/current/X509.xs
URL: http://svn.debian.org/wsvn/pkg-perl/packages/libcrypt-openssl-x509-perl/branches/upstream/current/X509.xs?rev=5779&op=diff
==============================================================================
--- packages/libcrypt-openssl-x509-perl/branches/upstream/current/X509.xs (original)
+++ packages/libcrypt-openssl-x509-perl/branches/upstream/current/X509.xs Sat Jul 14 20:19:40 2007
@@ -46,7 +46,7 @@
static BIO* sv_bio_create(void) {
- SV *sv = newSVpvn("",0);
+ SV *sv = newSVpvn("", 0);
/* create an in-memory BIO abstraction and callbacks */
BIO *bio = BIO_new(BIO_s_mem());
@@ -64,10 +64,6 @@
BIO_flush(bio);
sv = (SV *)BIO_get_callback_arg(bio);
BIO_free_all(bio);
-
- if (!sv) {
- sv = &PL_sv_undef;
- }
return sv;
}
@@ -322,12 +318,13 @@
CODE:
pkey = X509_get_pubkey(x509);
-
bio = sv_bio_create();
if (pkey == NULL) {
+
+ BIO_free_all(bio);
+ EVP_PKEY_free(pkey);
croak("Modulus is unavailable\n");
- XSRETURN_UNDEF;
}
if (pkey->type == EVP_PKEY_RSA) {
@@ -340,6 +337,8 @@
} else {
+ BIO_free_all(bio);
+ EVP_PKEY_free(pkey);
croak("Wrong Algorithm type\n");
}
@@ -371,6 +370,8 @@
bio = sv_bio_create();
if (!X509_digest(x509, mds[ix], md, &n)) {
+
+ BIO_free_all(bio);
croak("Digest error: %s", ssl_error());
}
@@ -420,8 +421,10 @@
bio = sv_bio_create();
if (pkey == NULL) {
+
+ BIO_free_all(bio);
+ EVP_PKEY_free(pkey);
croak("Public Key is unavailable\n");
- XSRETURN_UNDEF;
}
if (pkey->type == EVP_PKEY_RSA) {
@@ -434,12 +437,14 @@
} else {
+ BIO_free_all(bio);
+ EVP_PKEY_free(pkey);
croak("Wrong Algorithm type\n");
}
+ EVP_PKEY_free(pkey);
+
RETVAL = sv_bio_final(bio);
- EVP_PKEY_free(pkey);
-
- OUTPUT:
- RETVAL
+ OUTPUT:
+ RETVAL
More information about the Pkg-perl-cvs-commits
mailing list