[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 @dead;
find(sub { 
return if -d $_;
my $name = $File::Find::name;
$name =~ s#^\./##;
 unless (exists $files->{$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();
	9	my @dead;
	10	find(sub {
	11	return if -d $_;
	12	my $name = $File::Find::name;
	13	$name =~ s#^\./##;
	14	unless (exists $files->{$name})
	15	{
	16	print "new $name\n";
	17	push(@dead,$name);
	18	}
	19	},'.');
	20
	21	foreach my $file (@dead)
	22	{
	23	chmod(0666,$file) unless -w $file;
	24	unlink($file) \|\| warn "Cannot delete $file:$!";
	25	}
	26
	27	__END__
	28	:end_of_perl
	29	del perl.exe
	30	del perl*.dll