cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add a taint mode fix for newer Perl, from CPAN RT. Fixes a problem with

Browse Source 
MailScanner noted by Brad, tested by Brad and myself.
This commit is contained in:
sthen 2010-10-15 18:50:23 +00:00
parent fa09e27696
commit 94f3dde2b7
3 changed files with 57 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
archivers/p5-Archive-Zip/Makefile
View File

@ -1,10 +1,11 @@
# $OpenBSD: Makefile,v 1.19 2009/09/09 16:58:05 bluhm Exp $
# $OpenBSD: Makefile,v 1.20 2010/10/15 18:50:23 sthen Exp $
COMMENT= perl interface to ZIP files
MODULES= cpan
DISTNAME= Archive-Zip-1.30
REVISION= 0
CATEGORIES= archivers

43
archivers/p5-Archive-Zip/patches/patch-lib_Archive_Zip_Member_pm Normal file
View File

@ -0,0 +1,43 @@
$OpenBSD: patch-lib_Archive_Zip_Member_pm,v 1.1 2010/10/15 18:50:23 sthen Exp $
http://rt.cpan.org/Public/Bug/Display.html?id=61930
--- lib/Archive/Zip/Member.pm.orig Tue Jun 30 12:51:10 2009
+++ lib/Archive/Zip/Member.pm Fri Oct 15 19:04:27 2010
@@ -282,7 +282,7 @@ sub _mapPermissionsToUnix {
if ( $format == FA_AMIGA ) {
$attribs = $attribs >> 17 & 7; # Amiga RWE bits
$mode = $attribs << 6 | $attribs << 3 | $attribs;
- return $mode;
+ return sprintf("%d", $mode);
}
if ( $format == FA_THEOS ) {
@@ -304,7 +304,10 @@ sub _mapPermissionsToUnix {
|| $format == FA_TANDEM )
{
$mode = $attribs >> 16;
- return $mode if $mode != 0 or not $self->localExtraField;
+ if( $mode != 0 or not $self->localExtraField) {
+ $mode = sprintf("%d", $mode);
+ return sprintf("%d", $mode);
+ }
# warn("local extra field is: ", $self->localExtraField, "\n");
@@ -340,9 +343,13 @@ sub _mapPermissionsToUnix {
# keep previous $mode setting when its "owner"
# part appears to be consistent with DOS attribute flags!
- return $mode if ( $mode & 0700 ) == ( 0400 | $attribs << 6 );
+ if( ( $mode & 0700 ) == ( 0400 | $attribs << 6 )) {
+ $mode = sprintf("%d", $mode);
+ return sprintf("%d", $mode);
+ }
$mode = 0444 | $attribs << 6 | $attribs << 3 | $attribs;
- return $mode;
+ $mode = sprintf("%d", $mode);
+ return sprintf("%d", $mode);
}
sub unixFileAttributes {

12
archivers/p5-Archive-Zip/patches/patch-t_10_chmod_t Normal file
View File

@ -0,0 +1,12 @@
$OpenBSD: patch-t_10_chmod_t,v 1.1 2010/10/15 18:50:23 sthen Exp $
http://rt.cpan.org/Public/Bug/Display.html?id=61930
--- t/10_chmod.t.orig Tue Jun 30 12:51:11 2009
+++ t/10_chmod.t Fri Oct 15 19:04:27 2010
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -T
use strict;
BEGIN {