forked from Lainports/opnsense-ports
8cb1a96ede
Taken from: https://github.com/freebsd/freebsd-ports.git Commit id: 5070672073b68be364139bc6b3a89100bd17d331
11 lines
327 B
Perl
11 lines
327 B
Perl
--- 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
|