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                       ($ENV{PERL5LIB} ? ($ENV{PERL5LIB}) : ()),
  12                       );
  13 print "export PERL5LIB=$ENV{PERL5LIB}\n";
  14 system($^X, "./mogstored", @ARGV);