12 lines
361 B
Diff
12 lines
361 B
Diff
--- File-Pid-1.01/lib/File/Pid.pm.orig 2005-01-11 14:09:54.000000000 +0100
|
|
+++ File-Pid-1.01/lib/File/Pid.pm 2011-02-04 18:28:50.000000000 +0100
|
|
@@ -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
|