Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 18 lines (12 sloc) 361 Bytes
#!/usr/bin/env perl
use strict;
use warnings;
use autodie;
my $url = shift or die "usage: $0 url [directory]\n";
my $directory = shift || do { $url =~ m{.*/(.+)}; $1 };
die "Directory $directory already exists\n" if -e $directory;
mkdir $directory;
chdir $directory;
system(qw(git svn init), $url);
system(qw(git svn fetch));
system(qw(git reset --hard));
Something went wrong with that request. Please try again.