r76985 - in /branches/upstream/libmime-explode-perl/current: Changes Explode.pm Explode.xs META.yml Makefile.PL README
ansgar at users.alioth.debian.org
ansgar at users.alioth.debian.org
Sun Jul 3 08:50:37 UTC 2011
Author: ansgar
Date: Sun Jul 3 08:50:35 2011
New Revision: 76985
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=76985
Log:
[svn-upgrade] new version libmime-explode-perl (0.39)
Modified:
branches/upstream/libmime-explode-perl/current/Changes
branches/upstream/libmime-explode-perl/current/Explode.pm
branches/upstream/libmime-explode-perl/current/Explode.xs
branches/upstream/libmime-explode-perl/current/META.yml
branches/upstream/libmime-explode-perl/current/Makefile.PL
branches/upstream/libmime-explode-perl/current/README
Modified: branches/upstream/libmime-explode-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-explode-perl/current/Changes?rev=76985&op=diff
==============================================================================
--- branches/upstream/libmime-explode-perl/current/Changes (original)
+++ branches/upstream/libmime-explode-perl/current/Changes Sun Jul 3 08:50:35 2011
@@ -1,4 +1,9 @@
Revision history for Perl extension MIME::Explode.
+
+0.39 Sun Jun 26 21:21:26 WEST 2011
+ - Internal changes in XS file. The global variable "na" has changed
+ to "PL_na" and the "sv_undef" variable to "PL_sv_undef".
+ Thanks to Pascal Terjan for the patch.
0.38 Mon Jun 5 15:05:22 WEST 2006
- Several serious memory leaks were fixed.
Modified: branches/upstream/libmime-explode-perl/current/Explode.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-explode-perl/current/Explode.pm?rev=76985&op=diff
==============================================================================
--- branches/upstream/libmime-explode-perl/current/Explode.pm (original)
+++ branches/upstream/libmime-explode-perl/current/Explode.pm Sun Jul 3 08:50:35 2011
@@ -1,8 +1,9 @@
#
# Explode.pm
-# Last Modification: Mon Jun 5 14:13:53 WEST 2006
+# Last Modification: Sun Jun 26 21:19:40 WEST 2011
#
-# Copyright (c) 2006 Henrique Dias <hdias at aesbuc.pt>. All rights reserved.
+# Copyright (c) 2011 Henrique Dias <henrique.ribeiro.dias at gmail.com>.
+# All rights reserved.
# This module is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
#
@@ -20,7 +21,7 @@
@ISA = qw(Exporter DynaLoader);
@EXPORT = qw(&rfc822_base64 &rfc822_qprint);
-$VERSION = '0.38';
+$VERSION = '0.39';
use constant BUFFSIZE => 64;
@@ -585,7 +586,7 @@
=head1 AUTHOR
-Henrique Dias <hdias at aesbuc.pt>
+Henrique Dias <henrique.ribeiro.dias at gmail.com>
=head1 CREDITS
Modified: branches/upstream/libmime-explode-perl/current/Explode.xs
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-explode-perl/current/Explode.xs?rev=76985&op=diff
==============================================================================
--- branches/upstream/libmime-explode-perl/current/Explode.xs (original)
+++ branches/upstream/libmime-explode-perl/current/Explode.xs Sun Jul 3 08:50:35 2011
@@ -1,8 +1,9 @@
/*
* Explode.xs
- * Last Modification: Mon Jun 5 14:13:27 WEST 2006
+ * Last Modification: Sun Jun 26 21:17:45 WEST 2011
*
- * Copyright (c) 2006 Henrique Dias <hdias at aesbuc.pt>. All rights reserved.
+ * Copyright (c) 2011 Henrique Dias <henrique.ribeiro.dias at gmail.com>.
+ * All rights reserved.
* This module is free software; you can redistribute it and/or modify
* it under the same terms as Perl itself.
*
@@ -369,7 +370,7 @@
char *base = NULL;
char *mt;
PPCODE:
- if(items == 2) base = SvPV(ST(1), na);
+ if(items == 2) base = SvPV(ST(1), PL_na);
s = (unsigned char*)SvPV(source, srcl);
mt = set_mime_type(s, (unsigned long)srcl, base);
XPUSHs(sv_2mortal(newSVpv(mt, (STRLEN)strlen(mt))));
@@ -458,7 +459,7 @@
if(unlink(filename))
croak("Failed to delete file \"%s\"", filename);
- av_push(av_ret, mimetype ? newSVpv(mimetype, 0) : newSVsv(&sv_undef));
+ av_push(av_ret, mimetype ? newSVpv(mimetype, 0) : newSVsv(&PL_sv_undef));
av_push(av_ret, newSViv(exclude ? 1 : 0));
XPUSHs(sv_2mortal(newRV_noinc((SV*)av_ret)));
SvREFCNT_dec(buff_sv);
@@ -477,7 +478,7 @@
unsigned char *decoded = NULL;
unsigned char *rest = NULL;
SV *buff_sv = newSV(BUFFLEN);
- SV *part = newSVsv(&sv_undef);
+ SV *part = newSVsv(&PL_sv_undef);
char mt[BUFFLEN] = "";
bool exclude = FALSE;
bool verify = TRUE;
@@ -505,7 +506,7 @@
HV *hv = (HV*)SvRV(ST(4));
if(hv_exists(hv, "mimetype", 8)) {
SV **value = hv_fetch(hv, "mimetype", 8, 0);
- mimetype = SvPVx(*value, na);
+ mimetype = SvPVx(*value, PL_na);
}
if(hv_exists(hv, "checktype", 9)) {
SV **value = hv_fetch(hv, "checktype", 9, 0);
@@ -592,7 +593,7 @@
if(unlink(filename))
croak("Failed to delete file \"%s\"", filename);
av_push(av_ret, part);
- av_push(av_ret, mt ? newSVpv(mt, 0) : newSVsv(&sv_undef));
+ av_push(av_ret, mt ? newSVpv(mt, 0) : newSVsv(&PL_sv_undef));
av_push(av_ret, newSViv(exclude ? 1 : 0));
XPUSHs(sv_2mortal(newRV_noinc((SV*)av_ret)));
SvREFCNT_dec(buff_sv);
Modified: branches/upstream/libmime-explode-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-explode-perl/current/META.yml?rev=76985&op=diff
==============================================================================
--- branches/upstream/libmime-explode-perl/current/META.yml (original)
+++ branches/upstream/libmime-explode-perl/current/META.yml Sun Jul 3 08:50:35 2011
@@ -1,10 +1,21 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: MIME-Explode
-version: 0.38
-version_from: Explode.pm
-installdirs: site
-requires:
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+--- #YAML:1.0
+name: MIME-Explode
+version: 0.39
+abstract: Extension for explode MIME messages
+author:
+ - Henrique Dias <henrique.ribeiro.dias at gmail.com>
+license: perl
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+build_requires:
+ ExtUtils::MakeMaker: 0
+requires: {}
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.56
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Modified: branches/upstream/libmime-explode-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-explode-perl/current/Makefile.PL?rev=76985&op=diff
==============================================================================
--- branches/upstream/libmime-explode-perl/current/Makefile.PL (original)
+++ branches/upstream/libmime-explode-perl/current/Makefile.PL Sun Jul 3 08:50:35 2011
@@ -5,7 +5,7 @@
my @ppd = ();
if ($] >= 5.00503) {
@ppd = (
- 'AUTHOR' => 'Henrique Dias <hdias at esb.ucp.pt>',
+ 'AUTHOR' => 'Henrique Dias <henrique.ribeiro.dias at gmail.com>',
'ABSTRACT' => 'Extension for explode MIME messages',
);
}
@@ -14,6 +14,7 @@
'NAME' => 'MIME::Explode',
'DISTNAME' => 'MIME-Explode',
'VERSION_FROM' => 'Explode.pm', # finds $VERSION
+ 'LICENSE' => 'perl',
'LIBS' => [''], # e.g., '-lm'
'DEFINE' => '', # e.g., '-DHAVE_SOMETHING'
'INC' => '', # e.g., '-I/usr/include/other'
Modified: branches/upstream/libmime-explode-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-explode-perl/current/README?rev=76985&op=diff
==============================================================================
--- branches/upstream/libmime-explode-perl/current/README (original)
+++ branches/upstream/libmime-explode-perl/current/README Sun Jul 3 08:50:35 2011
@@ -1,4 +1,4 @@
-This is the README file for the PERL module MIME::Explode for Version 0.38
+This is the README file for the PERL module MIME::Explode for Version 0.39
MIME::Explode - Perl extension for explode MIME messages
@@ -18,8 +18,8 @@
For examples look at examples directory.
Questions, bug reports, useful code bits, and suggestions for
-MIME::Explode hould just be sent to me at hdias at aesbuc.pt
+MIME::Explode hould just be sent to me at henrique.ribeiro.dias at gmail.com
-Copyright (c) 2006 Henrique Dias. All rights reserved.
+Copyright (c) 2011 Henrique Dias. All rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
More information about the Pkg-perl-cvs-commits
mailing list