update.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use FindBin;
   5 use Getopt::Long;
   6
   7 my $python;
   8 GetOptions("python=s" => \$python);
   9
  10 my @command = qw(./planet/planet.py config.ini);
  11 unshift @command, $python if defined($python);
  12
  13 chdir $FindBin::Bin;
  14 exec @command;