Test case:
denny@serenity:~$ cat file-pid-go-boom.pl
#!/usr/bin/env perl
use strict;
use warnings;
use 5.012;
use File::Pid;
my $pidfile = File::Pid->new({
file => '/tmp/file-pid-go-boom.pid',
});
if ( my $num = $pidfile->running ) {
die "Already running: $num\n";
}
$pidfile->write;
say 'Hey, it worked!';
$pidfile->remove;
denny@serenity:~$ head -123 /usr/local/share/perl/5.14.2/File/Pid.pm | tail -2
my $pid = $self->_get_pid_from_file;
# my $pid = $self->_get_pid_from_file or return undef;
denny@serenity:~$ perl file-pid-go-boom.pl
Can't kill a non-numeric process ID at /usr/local/share/perl/5.14.2/File/Pid.pm
line 125.
denny@serenity:~$ head -123 /usr/local/share/perl/5.14.2/File/Pid.pm | tail -2
# my $pid = $self->_get_pid_from_file;
my $pid = $self->_get_pid_from_file or return undef;
denny@serenity:~$ perl file-pid-go-boom.pl
Hey, it worked!
denny@serenity:~$
--
You received this bug notification because you are a member of Ubuntu
Bugs, which is subscribed to Ubuntu.
https://bugs.launchpad.net/bugs/1281292
Title:
File::Pid bug with Perl >= 5.12
To manage notifications about this bug go to:
https://bugs.launchpad.net/ubuntu/+source/libfile-pid-perl/+bug/1281292/+subscriptions
--
ubuntu-bugs mailing list
ubuntu-bugs@lists.ubuntu.com
https://lists.ubuntu.com/mailman/listinfo/ubuntu-bugs
