| Subject: | regression on already-fixed bug #53716? |
| Date: | Thu, 5 Mar 2015 18:25:16 -0600 |
| To: | bug-Proc-PID-File [...] rt.cpan.org |
| From: | Scott Bertilson <ssb [...] umn.edu> |
The ticket said this has been fixed, but apparently an updated release
never made it out the door?
--- File.pm.orig 2009-10-12 20:40:21.000000000 -0500
+++ File.pm 2015-03-05 09:52:52.123562698 -0600
@@ -279,7 +279,7 @@
sub read {
my ($self, $fh) = @_;
- sysopen $fh, $self->{path}, O_RDWR|O_CREAT
+ sysopen($fh, $self->{path}, O_RDWR|O_CREAT)
|| die qq/Cannot open pid file "$self->{path}": $!\n/;
flock($fh, LOCK_EX | LOCK_NB)
|| die qq/pid "$self->{path}" already locked: $!\n/;
@@ -300,7 +300,7 @@
$self->debug("write($$)");
if (@_ == 1) {
- sysopen $fh, $self->{path}, O_RDWR|O_CREAT
+ sysopen($fh, $self->{path}, O_RDWR|O_CREAT)
|| die qq/Cannot open pid file "$self->{path}":
$!\n/;
flock($fh, LOCK_EX | LOCK_NB)
|| die qq/pid "$self->{path}" already locked: $!\n/;
Thanks, Scott