#!/usr/local/bin/perl -w
use strict;

use ExtUtils::Manifest "/mani/";
use POSIX qw(getcwd);

use vars qw($opt_dev);

use Getopt::Long;

GetOptions('dev=s');

sub System
{
 print STDERR join(' ',@_),"\n" if (@_ < 8);
 die "Cannot " . join(' ',@_) if (system(@_));
}

System("perl","Makefile.PL") unless (-r "Makefile");

System("make","manifest");

my $dir   = getcwd();
my $files = maniread();
$dir   =~ s#^.*/([^/]+)$#$1#;

my @files = map("$dir/$_",sort(keys %$files));
chdir("..");
system("mv","$dir.tar.gz","$dir.tar.gz%") if (-e "$dir.tar.gz");

if (defined $opt_dev)
 {
  System("tar","-cf",$opt_dev,@files);
  System("tar","-tvf",$opt_dev);
 }
else
 {
  System("tar","-cf","$dir.tar",@files);
  System("gzip",'-9',"$dir.tar");
 }


