aboutsummaryrefslogtreecommitdiff
path: root/devel/p5-File-Pid
diff options
context:
space:
mode:
authorTilman Keskinoz <arved@FreeBSD.org>2009-03-13 13:11:26 +0000
committerTilman Keskinoz <arved@FreeBSD.org>2009-03-13 13:11:26 +0000
commit44df881d6020a64e509dbc820ae00e112e563bae (patch)
tree2f9aaadf5ce9b101308d24346bf9233e85cb970b /devel/p5-File-Pid
parent1d9fd744c143b4364cd4193f039048d68b9ff5b2 (diff)
downloadports-44df881d6020a64e509dbc820ae00e112e563bae.tar.gz
ports-44df881d6020a64e509dbc820ae00e112e563bae.zip
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)
Notes
Notes: svn path=/head/; revision=229990
Diffstat (limited to 'devel/p5-File-Pid')
-rw-r--r--devel/p5-File-Pid/Makefile4
-rw-r--r--devel/p5-File-Pid/files/patch-lib-File-Pid.pm11
2 files changed, 15 insertions, 0 deletions
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