|
Revision 931, 0.6 kB
(checked in by bradfitz, 2 years ago)
|
start removing of all the mogstored-FOO parallel binaries for the
child processes, moving them into classes with 'run', etc methods.
makes /usr/bin/ cleaner, makes Makefile.PL cleaner, makes stuff easier
to read/find/etc.
|
- Property svn:executable set to
*
|
| Line | |
|---|
| 1 |
#!/usr/bin/perl |
|---|
| 2 |
use strict; |
|---|
| 3 |
use Cwd; |
|---|
| 4 |
my $cwd = getcwd; |
|---|
| 5 |
my ($svn) = $cwd =~ m!^(.+)/mogilefs/server! or |
|---|
| 6 |
die "not sure where we're at"; |
|---|
| 7 |
|
|---|
| 8 |
$ENV{PERL5LIB} = join(":", |
|---|
| 9 |
"$svn/mogilefs/server/lib", |
|---|
| 10 |
"$svn/perlbal/lib", |
|---|
| 11 |
"$svn/gearman/api/perl/Gearman/lib", |
|---|
| 12 |
"$svn/gearman/api/perl/Gearman-Client-Async/lib", |
|---|
| 13 |
"$svn/gearman/server/lib", |
|---|
| 14 |
($ENV{PERL5LIB} ? ($ENV{PERL5LIB}) : ()), |
|---|
| 15 |
); |
|---|
| 16 |
print "export PERL5LIB=$ENV{PERL5LIB}\n"; |
|---|
| 17 |
system($^X, "./mogstored", @ARGV); |
|---|
