#line 1
use
strict;
use
warnings;
package
Module::Install::AutoManifest;
BEGIN {
our
$VERSION
=
'0.003'
;
our
$ISCORE
= 1;
our
@ISA
=
qw(Module::Install::Base)
;
}
sub
auto_manifest {
my
(
$self
) =
@_
;
return
unless
$Module::Install::AUTHOR
;
die
"auto_manifest requested, but no MANIFEST.SKIP exists\n"
unless
-e
"MANIFEST.SKIP"
;
if
(-e
"MANIFEST"
) {
unlink
(
'MANIFEST'
) or
die
"Can't remove MANIFEST: $!"
;
}
$self
->postamble(
<<"END");
create_distdir: manifest_clean manifest
distclean :: manifest_clean
manifest_clean:
\t\$(RM_F) MANIFEST
END
}
1;
__END__
#line 48
#line 131
1; # End of Module::Install::AutoManifest