#!/usr/bin/perl
###########################################
# release -- Release this module
# Mike Schilli, 2004 (m@perlmeister.com)
###########################################
use warnings;
use strict;

    # Available at http://perlmeister.com/scripts
use ModDevUtils;

ModDevUtils::release() or exit 0;

my $ball = ModDevUtils::tarball_name();
print "Copying $ball to perlmeister.com ...\n";
system("scp $ball perlmeis\@sprite.netnation.com:/home/perlmeis/tmp");
print "Releasing it on perlmeister.com ...\n";
system("ssh -l perlmeis sprite.netnation.com bin/rel $ball\n");
