From 44df881d6020a64e509dbc820ae00e112e563bae Mon Sep 17 00:00:00 2001
From: Tilman Keskinoz <arved@FreeBSD.org>
Date: Fri, 13 Mar 2009 13:11:26 +0000
Subject: Fix unitialized value warning if program is called without an
 existing pid

PR:		130647
Submitted by:	Alexander Kriventsov
Approved by:	Gea-Suan Lin <gslin@gslin.org> (maintainer)
---
 devel/p5-File-Pid/Makefile                    |  4 ++++
 devel/p5-File-Pid/files/patch-lib-File-Pid.pm | 11 +++++++++++
 2 files changed, 15 insertions(+)
 create mode 100644 devel/p5-File-Pid/files/patch-lib-File-Pid.pm

(limited to 'devel')

diff --git a/devel/p5-File-Pid/Makefile b/devel/p5-File-Pid/Makefile
index d205e98e9cc2..5481f750ea99 100644
--- a/devel/p5-File-Pid/Makefile
+++ b/devel/p5-File-Pid/Makefile
@@ -7,6 +7,7 @@
 
 PORTNAME=	File-Pid
 PORTVERSION=	1.01
+PORTREVISION=	1
 CATEGORIES=	devel perl5
 MASTER_SITES=	CPAN
 PKGNAMEPREFIX=	p5-
@@ -21,4 +22,7 @@ PERL_CONFIGURE=	yes
 
 MAN3=		File::Pid.3
 
+post-patch:
+	${RM} ${WRKSRC}/lib/File/Pid.pm.orig
+
 .include <bsd.port.mk>
diff --git a/devel/p5-File-Pid/files/patch-lib-File-Pid.pm b/devel/p5-File-Pid/files/patch-lib-File-Pid.pm
new file mode 100644
index 000000000000..bd97fc13d1cf
--- /dev/null
+++ b/devel/p5-File-Pid/files/patch-lib-File-Pid.pm
@@ -0,0 +1,11 @@
+--- lib/File/Pid.pm    2009-01-17 09:44:31.653906918 +0000
++++ lib/File/Pid.pm    2009-01-17 09:44:01.397399415 +0000
+@@ -119,7 +119,7 @@
+
+ sub running {
+     my $self = shift;
+-    my $pid  = $self->_get_pid_from_file;
++    my $pid  = $self->_get_pid_from_file or return undef;
+
+     return   kill(0, $pid)
+            ? $pid
-- 
cgit v1.2.3