Date: Wed, 11 Sep 2002 14:15:10 +0200 (CEST) From: Erwin Lansing <erwini@lansing.dk> To: FreeBSD-gnats-submit@FreeBSD.org Subject: ports/42656: fix p5-Archive-Zip to work with -T (amavis, ao.) Message-ID: <20020911121510.2E5215B8B@mail.droso.net>
next in thread | raw e-mail | index | archive | help
>Number: 42656
>Category: ports
>Synopsis: fix p5-Archive-Zip to work with -T (amavis, ao.)
>Confidential: no
>Severity: serious
>Priority: medium
>Responsible: freebsd-ports
>State: open
>Quarter:
>Keywords:
>Date-Required:
>Class: maintainer-update
>Submitter-Id: current-users
>Arrival-Date: Wed Sep 11 05:20:02 PDT 2002
>Closed-Date:
>Last-Modified:
>Originator: Erwin Lansing
>Release: FreeBSD 4.6-STABLE i386
>Organization:
pil.dk
>Environment:
System: FreeBSD koala.droso.net 4.6-STABLE FreeBSD 4.6-STABLE #10: Tue Aug 20 08:30:47 CEST 2002 root@koala.droso.net:/usr/obj/usr/src/sys/KOALA i386
>Description:
Archive::Zip does not work with -T. This breaks ao. amavis. The following
patch untaints the offending variable. I'll contact the author.
Noticed by: "Carlos F. A. Paniago" <pan@cnpm.embrapa.br>
Note: new file files/patch-lib-Archive-Zip.pm
>How-To-Repeat:
>Fix:
--- p5-Archive-Zip.diff begins here ---
diff -ruN p5-Archive-Zip.orig/Makefile p5-Archive-Zip/Makefile
--- p5-Archive-Zip.orig/Makefile Tue Sep 3 10:10:20 2002
+++ p5-Archive-Zip/Makefile Wed Sep 11 13:20:02 2002
@@ -7,6 +7,7 @@
PORTNAME= Archive-Zip
PORTVERSION= 1.03
+PORTREVISION= 1
CATEGORIES= archivers perl5
MASTER_SITES= ${MASTER_SITE_PERL_CPAN}
MASTER_SITE_SUBDIR= Archive
diff -ruN p5-Archive-Zip.orig/files/patch-lib-Archive-Zip.pm p5-Archive-Zip/files/patch-lib-Archive-Zip.pm
--- p5-Archive-Zip.orig/files/patch-lib-Archive-Zip.pm Thu Jan 1 01:00:00 1970
+++ p5-Archive-Zip/files/patch-lib-Archive-Zip.pm Wed Sep 11 13:19:33 2002
@@ -0,0 +1,17 @@
+--- lib/Archive/Zip.pm.orig Wed Sep 11 13:18:37 2002
++++ lib/Archive/Zip.pm Wed Sep 11 13:18:54 2002
+@@ -1304,7 +1304,13 @@
+ sub lastModTime # Archive::Zip::Member
+ {
+ my $self = shift;
+- return _dosToUnixTime( $self->lastModFileDateTime() );
++ my $lastMT = _dosToUnixTime( $self->lastModFileDateTime() );
++ if ($lastMT =~ /^(\d+)$/ ) {
++ $lastMT = $1;
++ } else {
++ die ("Bad timestamp");
++ }
++ return $lastMT;
+ }
+
+ sub setLastModFileDateTimeFromUnix # Archive::Zip::Member
--- p5-Archive-Zip.diff ends here ---
>Release-Note:
>Audit-Trail:
>Unformatted:
To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-ports" in the body of the message
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20020911121510.2E5215B8B>