Bug #4019 for Proc-PID-File: 'make test' fails for installations other than /usr/bin/perl

Sun Oct 05 20:05:34 2003 Guest - Ticket created

Subject:

'make test' fails for installations other than /usr/bin/perl

The test.pl script runs itself with #!/usr/bin/perl and fails if perl is installed in a different location. The attached patch seems to resolve the problem. Cheers, -Bill Newcomb, nuke@juniper.net

Download patch
application/octet-stream 706b

Message body not shown because it is not plain text.

Sun Oct 05 20:07:47 2003 Guest - Correspondence added

From:

nuke [...] juniper.net

Hmm, I was hoping the attachment would work better. Here's the patch so it's easier to see: @@ -32,7 +32,7 @@ # unlink("test.pid") || die $! if -e "test.pid"; # blank slate -system qq|./test.pl --daemon > /dev/null 2>&1 &|; sleep 1; +system qq|$^X ./test.pl --daemon > /dev/null 2>&1 &|; sleep 1; my $pid = qx/cat test.pid/; chomp $pid; my $rc = Proc::PID::File->running( @@ -74,14 +74,14 @@ # test someone running -system qq|./test.pl --daemon > /dev/null 2>&1 &|; +system qq|$^X ./test.pl --daemon > /dev/null 2>&1 &|; wait until -f $pf->{path}; ok(1, "write tested"); ok($pf->alive(), "second incarnation"); # test DESTROY -system qq|./test.pl --short > /dev/null 2>&1|; +system qq|$^X ./test.pl --short > /dev/null 2>&1|; ok(-f $pf->{path}, "destroy"); ok(1, "done");

Sun Oct 05 22:19:29 2003 ecalder [...] cpan.org - Correspondence added

[guest - Sun Oct 5 20:07:47 2003]: Show quoted text

> Hmm, I was hoping the attachment would work better. Here's the patch

so Show quoted text

> it's easier to see:

thx a bunch. I've integrated into the code and should be in the next release (wheneve I make it). I've used qq|$^X $0 ...| instead.

Sun Oct 05 22:19:30 2003 ecalder [...] cpan.org - Status changed from 'new' to 'resolved'