#!/usr/local/bin/perl -w

require 'find.pl';

$prune = 0;

sub wanted
{
 return if (/^\./);
 if (!-l $_ && -d $_)
  {
   if (/^raw|ToDo|blib|Interest|ToolBox$/)
    {
     $prune = 1;
    }
   else
    {
     print STDERR "Dir : $dir/$_\n";
    }
  }
 elsif (!/(%|\.orig|\.old|\.[oan3]|\.not_yet|\.bso?|~)$/ && length > 1 
        && !/^Makefile$/
        && !/^Perl.make$/
       )
  {
   if (!/^(.*)\.c$/ || !-r "$1.xs")
    {
     my $file = "$dir/$_";      
     $file =~ s#^\./##;         
     push(@files,$file);
    }
  }
}

&find(".");

rename('MANIFEST','MANIFEST.old') if (-f 'MANIFEST');

open(STDOUT,">MANIFEST") || die "Cannot open MANIFEST:$!";

foreach (sort @files)
{
 print "$_\n";
}
