[perl5.git] / win32 / distclean.bat

@perl -w -Sx %0 %*
@goto end_of_perl
#!perl -w
BEGIN { push(@INC,'lib') }
use strict;
use File::Find;
use ExtUtils::Manifest qw(maniread);
my $files = maniread();
my %files;
foreach (keys %$files)
 {
  $files{lc($_)} = $files->{$_};
 } 

my @dead;
find(sub { 
 return if -d $_;
 my $name = $File::Find::name;
 $name =~ s#^\./##;
 unless (exists $files{lc($name)})
  {
   # print "new $name\n";
   push(@dead,$name);
  } 
},'.');

foreach my $file (@dead)
 {
  chmod(0666,$file) unless -w $file;
  unlink($file) || warn "Cannot delete $file:$!";
 }

__END__
:end_of_perl
del perl.exe
del perl*.dll
Commit	Line	Data
41510af7 NIS	1	@perl -w -Sx %0 %*
	2	@goto end_of_perl
	3	#!perl -w
	4	BEGIN { push(@INC,'lib') }
	5	use strict;
	6	use File::Find;
	7	use ExtUtils::Manifest qw(maniread);
	8	my $files = maniread();
55bb78da NIS	9	my %files;
	10	foreach (keys %$files)
	11	{
	12	$files{lc($_)} = $files->{$_};
	13	}
	14
41510af7 NIS	15	my @dead;
41510af7 NIS	16	find(sub {
55bb78da NIS	17	return if -d $_;
	18	my $name = $File::Find::name;
	19	$name =~ s#^\./##;
	20	unless (exists $files{lc($name)})
41510af7	21	{
5d0f3903	22	# print "new $name\n";
41510af7 NIS	23	push(@dead,$name);
	24	}
	25	},'.');
	26
	27	foreach my $file (@dead)
	28	{
	29	chmod(0666,$file) unless -w $file;
	30	unlink($file) \|\| warn "Cannot delete $file:$!";
	31	}
	32
	33	__END__
	34	:end_of_perl
	35	del perl.exe
	36	del perl*.dll