#!/usr/bin/env perl

use strict;
use warnings;
use Shipwright;
use Shipwright::Script;
use Cwd;

local $SIG{INT} = sub { warn "Stopped\n"; exit; };

my $cwd = getcwd;
$ENV{SHIPWRIGHT_SVK} ||= 'svk';
$ENV{SHIPWRIGHT_SVN} ||= 'svn';
Shipwright::Script->dispatch();
chdir $cwd;
