Skip Menu |
 

This queue is for tickets about the Gearman-Client-Async CPAN distribution.

Report information
The Basics
Id: 31809
Status: new
Priority: 0/
Queue: Gearman-Client-Async

People
Owner: Nobody in particular
Requestors: cpan [...] pjedwards.co.uk
Cc:
AdminCc:

Bug Information
Severity: Wishlist
Broken in:
  • 0.93
  • 0.94
Fixed in: (no value)



Subject: Find gearmand and perl instance using Config.
Download (untitled) / with headers
text/plain 1.4k
Hello and thanks for Gearman::Client::Async, If anyone else is using a non system Perl installation and still has their env set to use the system installation that is missing dependencies needed to test (gearmand), then this patch might help. It finds gearmand by using the Config{'installscript'} of the instance of Perl running (this is where gearmand'd Makefile.PL will install EXE_FILES). It also runs the child processes using the instance of perl running. Cheers, Peter (Stig) Edwards ==== Gearman-Client-Async-0.93/t/lib/testlib.pl#1 - Gearman-Client-Async-0.93/t/lib/testlib.pl ==== @@ -17,6 +17,7 @@ use POSIX qw( :sys_wait_h ); use List::Util qw(first);; use IO::Socket::INET; +use Config; Danga::Socket->SetLoopTimeout(100); @@ -30,6 +31,7 @@ "$Bin/../../../../../server/gearmand", # using svn, with disttest '/usr/bin/gearmand', # where some distros might put it '/usr/sbin/gearmand', # where other distros might put it + File::Spec->catfile($Config{'installscript'},'gearmand'), ); my $server = first { -e $_ } @loc or return 0; @@ -53,10 +55,11 @@ sub start_child { my($cmd) = @_; + my $perl = $Config{'perlpath'}; my $pid = fork(); die $! unless defined $pid; unless ($pid) { - exec 'perl', '-Iblib/lib', '-Ilib', @$cmd or die $!; + exec $perl, '-Iblib/lib', '-Ilib', @$cmd or die $!; } $pid; }


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.