diff options
| author | Tilman Keskinoz <arved@FreeBSD.org> | 2009-03-13 13:11:26 +0000 |
|---|---|---|
| committer | Tilman Keskinoz <arved@FreeBSD.org> | 2009-03-13 13:11:26 +0000 |
| commit | 44df881d6020a64e509dbc820ae00e112e563bae (patch) | |
| tree | 2f9aaadf5ce9b101308d24346bf9233e85cb970b /devel/p5-File-Pid/files/patch-lib-File-Pid.pm | |
| parent | Update "perl-after-upgrade": set correct perl package name in @pkgdep. (diff) | |
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)
Diffstat (limited to 'devel/p5-File-Pid/files/patch-lib-File-Pid.pm')
| -rw-r--r-- | devel/p5-File-Pid/files/patch-lib-File-Pid.pm | 11 |
1 files changed, 11 insertions, 0 deletions
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 |