From 21cb04a6b7878037ef01b871cc1e837fc51d883f Mon Sep 17 00:00:00 2001
From: Anton Berezin <tobez@FreeBSD.org>
Date: Mon, 27 Dec 2004 10:10:51 +0000
Subject: Patch up for http://secunia.com/advisories/13566/

---
 security/p5-Crypt-ECB/Makefile           |  1 +
 security/p5-Crypt-ECB/files/patch-ECB.pm | 11 +++++++++++
 2 files changed, 12 insertions(+)
 create mode 100644 security/p5-Crypt-ECB/files/patch-ECB.pm

(limited to 'security')

diff --git a/security/p5-Crypt-ECB/Makefile b/security/p5-Crypt-ECB/Makefile
index a406f9474412..3232efabb65d 100644
--- a/security/p5-Crypt-ECB/Makefile
+++ b/security/p5-Crypt-ECB/Makefile
@@ -7,6 +7,7 @@
 
 PORTNAME=	Crypt-ECB
 PORTVERSION=	1.1p2
+PORTREVISION=	1
 CATEGORIES=	security perl5
 MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
 MASTER_SITE_SUBDIR=	Crypt
diff --git a/security/p5-Crypt-ECB/files/patch-ECB.pm b/security/p5-Crypt-ECB/files/patch-ECB.pm
new file mode 100644
index 000000000000..8a411655aa96
--- /dev/null
+++ b/security/p5-Crypt-ECB/files/patch-ECB.pm
@@ -0,0 +1,11 @@
+--- ECB.pm.orig	Mon Dec 27 11:05:33 2004
++++ ECB.pm	Mon Dec 27 11:06:45 2004
+@@ -274,7 +274,7 @@ sub finish (\$)
+     $crypt->{Mode}   = '';
+     $crypt->{buffer} = '';
+ 
+-    return '' unless $data;
++    return '' unless defined($data) && length($data) > 0;
+ 
+     my $cipher = $crypt->_getcipher;
+ 
-- 
cgit v1.2.3