| |
@@ -0,0 +1,14 @@
|
| |
+ Description: fix for undef input into regex match
|
| |
+ Author: Alexander Zangerl <az@debian.org>
|
| |
+ --- a/File.pm
|
| |
+ +++ b/File.pm
|
| |
+ @@ -285,7 +285,8 @@ sub read {
|
| |
+ || die qq/Cannot open pid file "$self->{path}": $!\n/;
|
| |
+ flock($fh, LOCK_EX | LOCK_NB)
|
| |
+ || die qq/pid "$self->{path}" already locked: $!\n/;
|
| |
+ - my ($pid) = <$fh> =~ /^(\d+)/;
|
| |
+ + my $maybe = <$fh>;
|
| |
+ + my ($pid) = $maybe =~ /^(\d+)/ if (defined $maybe);
|
| |
+ close $fh if @_ == 1;
|
| |
+
|
| |
+ $self->debug("read(\"$self->{path}\") = " . ($pid || ""));
|
| |
A few fixes. The main point of this is to fix bug #1456817.