r22215 - in /branches/upstream/libconvert-uulib-perl/current: Changes META.yml README UUlib.pm uulib/uulib.c uulib/uuscan.c
js at users.alioth.debian.org
js at users.alioth.debian.org
Fri Jun 27 09:46:36 UTC 2008
Author: js
Date: Fri Jun 27 09:46:36 2008
New Revision: 22215
URL: http://svn.debian.org/wsvn/?sc=1&rev=22215
Log:
[svn-upgrade] Integrating new upstream version, libconvert-uulib-perl (1.11)
Modified:
branches/upstream/libconvert-uulib-perl/current/Changes
branches/upstream/libconvert-uulib-perl/current/META.yml
branches/upstream/libconvert-uulib-perl/current/README
branches/upstream/libconvert-uulib-perl/current/UUlib.pm
branches/upstream/libconvert-uulib-perl/current/uulib/uulib.c
branches/upstream/libconvert-uulib-perl/current/uulib/uuscan.c
Modified: branches/upstream/libconvert-uulib-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libconvert-uulib-perl/current/Changes?rev=22215&op=diff
==============================================================================
--- branches/upstream/libconvert-uulib-perl/current/Changes (original)
+++ branches/upstream/libconvert-uulib-perl/current/Changes Fri Jun 27 09:46:36 2008
@@ -1,7 +1,14 @@
Revision history for Perl extension Convert::UUlib.
+1.11 Fri Jun 13 15:32:30 CEST 2008
+ - don't ask.
+
+1.10 Fri Jun 13 14:22:42 CEST 2008
+ - fix an infinite-looping problem when scanning in freestyle
+ mode (testcase provided by Pieter Geens).
+
1.09 Fri May 25 19:38:11 CEST 2007
- - create something sensible, trust a windows program to fuck
+ - create something sensible, trust a windows program to fuck
it up: work around literal "(null)" filenames in yenc-encoded
files.
- some minor cleanups.
@@ -9,7 +16,7 @@
1.08 Sat Dec 16 23:27:13 CET 2006
- URGENT update, the last release did not
decode files correctly, usually not at all.
- - my last patch was, of course, completly bogus.
+ - my last patch was, of course, completely bogus.
(sorry. looked simple...).
1.07 Sun Dec 10 17:41:46 CET 2006
Modified: branches/upstream/libconvert-uulib-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libconvert-uulib-perl/current/META.yml?rev=22215&op=diff
==============================================================================
--- branches/upstream/libconvert-uulib-perl/current/META.yml (original)
+++ branches/upstream/libconvert-uulib-perl/current/META.yml Fri Jun 27 09:46:36 2008
@@ -1,10 +1,12 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: Convert-UUlib
-version: 1.09
-version_from: UUlib.pm
-installdirs: site
-requires:
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30
+--- #YAML:1.0
+name: Convert-UUlib
+version: 1.11
+abstract: ~
+license: ~
+author: ~
+generated_by: ExtUtils::MakeMaker version 6.44
+distribution_type: module
+requires:
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.3.html
+ version: 1.3
Modified: branches/upstream/libconvert-uulib-perl/current/README
URL: http://svn.debian.org/wsvn/branches/upstream/libconvert-uulib-perl/current/README?rev=22215&op=diff
==============================================================================
--- branches/upstream/libconvert-uulib-perl/current/README (original)
+++ branches/upstream/libconvert-uulib-perl/current/README Fri Jun 27 09:46:36 2008
@@ -4,8 +4,8 @@
SYNOPSIS
use Convert::UUlib ':all';
-
- # read all the files named on the commandline and decode them
+
+ # read all the files named on the commandline and decode them
# into the CURRENT directory. See below for a longer example.
LoadFile $_ for @ARGV;
for (my $i = 0; my $uu = GetFileListItem $i; $i++) {
Modified: branches/upstream/libconvert-uulib-perl/current/UUlib.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libconvert-uulib-perl/current/UUlib.pm?rev=22215&op=diff
==============================================================================
--- branches/upstream/libconvert-uulib-perl/current/UUlib.pm (original)
+++ branches/upstream/libconvert-uulib-perl/current/UUlib.pm Fri Jun 27 09:46:36 2008
@@ -8,7 +8,7 @@
require Exporter;
require DynaLoader;
-our $VERSION = '1.09';
+our $VERSION = '1.11';
our @ISA = qw(Exporter DynaLoader);
Modified: branches/upstream/libconvert-uulib-perl/current/uulib/uulib.c
URL: http://svn.debian.org/wsvn/branches/upstream/libconvert-uulib-perl/current/uulib/uulib.c?rev=22215&op=diff
==============================================================================
--- branches/upstream/libconvert-uulib-perl/current/uulib/uulib.c (original)
+++ branches/upstream/libconvert-uulib-perl/current/uulib/uulib.c Fri Jun 27 09:46:36 2008
@@ -889,6 +889,7 @@
if (uu_fast_scanning && sr != UURET_CONT)
break;
}
+
if (ferror (datei)) {
UUMessage (uulib_id, __LINE__, UUMSG_ERROR,
uustring (S_READ_ERROR), filename,
@@ -899,6 +900,7 @@
UUCLRBUF (uu_rbuf, datei_buf);
return UURET_IOERR;
}
+
fclose (datei);
UUCLRBUF (uu_rbuf, datei_buf);
Modified: branches/upstream/libconvert-uulib-perl/current/uulib/uuscan.c
URL: http://svn.debian.org/wsvn/branches/upstream/libconvert-uulib-perl/current/uulib/uuscan.c?rev=22215&op=diff
==============================================================================
--- branches/upstream/libconvert-uulib-perl/current/uulib/uuscan.c (original)
+++ branches/upstream/libconvert-uulib-perl/current/uulib/uuscan.c Fri Jun 27 09:46:36 2008
@@ -933,6 +933,9 @@
(((ptr = _FP_strrstr (line+2, "--")) == NULL) ||
(*(ptr+2) != '\012' && *(ptr+2) != '\015')) &&
_FP_strstr (line+2, "_=_") != NULL) {
+
+ long oldposition = ftell (datei); /* refresh oldpositition so the comment below becomes true */
+
if (_FP_fgets (line, 255, datei) == NULL) {
break;
}
@@ -1522,7 +1525,7 @@
/* ignore empty lines at the beginning of a file */
preheaders = ftell (datei);
while (!feof (datei)) {
- if (UUBUSYPOLL(ftell(datei),progress.fsize)) SPCANCEL();
+ if (UUBUSYPOLL(preheaders,progress.fsize)) SPCANCEL();
if (_FP_fgets (line, 255, datei) == NULL)
break;
line[255] = '\0';
@@ -3124,9 +3127,8 @@
* be here!
*/
- if ((sstate.envelope.ctype == NULL ||
- _FP_stristr (sstate.envelope.ctype, "multipart") != NULL) &&
- !uu_more_mime) {
+ if ((!sstate.envelope.ctype || _FP_stristr (sstate.envelope.ctype, "multipart"))
+ && !uu_more_mime) {
prevpos = ftell (datei);
while (!feof (datei)) {
if (_FP_fgets (line, 255, datei) == NULL) {
@@ -3181,6 +3183,7 @@
if (sstate.envelope.subject)
result->subject = _FP_strdup (sstate.envelope.subject);
+
if (sstate.envelope.from)
result->origin = _FP_strdup (sstate.envelope.from);
More information about the Pkg-perl-cvs-commits
mailing list