root/misc/svknuke

Revision 2948 (checked in by miyagawa, 10 years ago)

use env perl

  • Property svn:executable set to *
Line 
1 #!/usr/bin/env perl
2 use strict;
3 system("svk cleanup");
4 unlink "$ENV{HOME}/.svk/lock"; # don't care about failure
5
6 my $info = `svk info`;
7 if ($info && $info =~ m|Depot Path: (//mirror/\w+)/|) {
8     system ("svk mirror --unlock $1");
9 }
10
Note: See TracBrowser for help on using the browser.