# Copyright (C) 2001-2003, The Perl Foundation.
# $Id: /mirror/trunk/config/init/manifest.pm 30398 2008-08-20T02:21:59.881769Z jkeenan  $

=head1 NAME

config/init/manifest.pm - MANIFEST Check

=head1 DESCRIPTION

Uses C<ExtUtils::Manifest> to check that the distribution is complete.

=cut

package init::manifest;

use strict;
use warnings;

use base qw(Parrot::Configure::Step);

use Parrot::Configure::Step;
use Parrot::Configure::Utils ':gen';
use ExtUtils::Manifest qw(manicheck);


sub _init {
    my $self = shift;
    my %data;
    $data{description} = q{Check MANIFEST};
    $data{result}      = q{};
    return \%data;
}

sub runstep {
    my ( $self, $conf ) = @_;

    $conf->append_configure_log('MANIFEST.configure.generated');
    if ( $conf->options->get('nomanicheck') ) {
        $self->set_result('skipped');
        return 1;
    }

    my @missing = ExtUtils::Manifest::manicheck();

    if (@missing) {
        print <<"END";

Ack, some files were missing!  I can't continue running
without everything here.  Please try to find the above
files and then try running Configure again.

END

        return;
    }

    return 1;
}

1;

# Local Variables:
#   mode: cperl
#   cperl-indent-level: 4
#   fill-column: 100
# End:
# vim: expandtab shiftwidth=4:
