pkg-perl-maintainers team mailing list archive

[Denny de la Haye <1281292@xxxxxxxxxxxxxxxxxx>]

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 Debian
Perl Group, which is subscribed to libfile-pid-perl in 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