usage: perl MANIFESTIT.PL path/2/manifest/holding/dir
[download]

#!/usr/bin/perl -wl

use strict;
use Archive::Tar;
use vars qw/ $DISTNAME $VERSION/;
my @MANIFEST;
my $MANIFEST = shift @ARGV || '';

die "ERROR: `$MANIFEST/MANIFEST' $!"
  unless(-e "$MANIFEST/MANIFEST" and -r "$MANIFEST/MANIFEST");

open(MANIFEST, '<', "$MANIFEST/MANIFEST")
  or die "ERROR: `$MANIFEST/MANIFEST' $!";

while(<MANIFEST>) {
    chomp;
    next unless length $_;

    die "ERROR: `$MANIFEST/$_' $!"
      unless(-e "$MANIFEST/$_" and -r "$MANIFEST/$_");

    push @MANIFEST,"$MANIFEST/$_";

    &_MAKEFILE( $MANIFEST[-1] ) if $_ =~ /Makefile.PL/i;
}

print for @MANIFEST;

my $tar = Archive::Tar->new();
$tar->add_files(@MANIFEST);
$tar->write("$DISTNAME-$VERSION.tar");
print "created `$DISTNAME-$VERSION.tar'";
exit;

sub _MAKEFILE
{
    open(MAKEFILE,'<',$_[0]) or die "ERROR: `$_[0]' $!";
    while(<MAKEFILE>) {
        chomp;
        if(/^\s*?'?NAME'?\s*?\=\>\s*?(?:\'|\")?([a-zA-Z:_]+)(?:\'|\")?
+,/)
        {
            print;
            $DISTNAME = $1;
        }

        if(/^\s*?'?DISTNAME'?\s*?\=\>\s*?(?:\'|\")?([a-zA-Z_-]+)(?:\'|
+\")?,/)
        {
            print;
            $DISTNAME = $1;
        }

        if(/^\s*?'?VERSION'?\s*?\=\>\s*?(?:\'|\")?([a-zA-Z_-]+)(?:\'|\
+")?,/)
        {
            print;
            $VERSION = $1;
        }

        if(/^\s*?'?VERSION_FROM'?\s*?\=\>\s*?(?:\'|\")?([^'"]+)(?:\'|\
+")?,/)
        {
            print;
            open(VERSION,'<',"$MANIFEST/$1") or die "ERROR: `$1' $!";
            while(<VERSION>) {
                chomp;
                if(/([\$*])(([\w\:\']*)\bVERSION)\b.*\=/)
                {
                    eval $_;
                }
            }
        }
    }
}

__END__
F:\dev\Pod_Parser>perl MANIFESTIT.PL Pod/Stripper
    'NAME'                  => 'Pod::Stripper',
    'VERSION_FROM'      => 'Stripper.pm', # finds $VERSION
    'DISTNAME'      => 'Pod-Stripper',
Pod/Stripper/Changes
Pod/Stripper/Stripper.pm
Pod/Stripper/Makefile.PL
Pod/Stripper/MANIFEST
Pod/Stripper/README
Pod/Stripper/test.pl
Pod/Stripper/test.stripped
created `Pod-Stripper-0.2.tar'

F:\dev\Pod_Parser>
[download]