dev-mogstored.pl

   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);