svn-checkout-googlecode

   1 #!/usr/bin/perl
   2 my $p = shift;
   3 my $sub = shift;
   4 my $n = shift;
   5 my @cmd = ('svn','checkout',@ARGV,"https://$p.googlecode.com/svn" . ($sub ? "/$sub/trunk" : "/trunk") , $n || "");
   6 print STDERR join(" ",@cmd),"\n";
   7 exec @cmd;