Mercurial > repo
view perl-5.22.2/win32/distclean.bat @ 8045:a16537d2fe07
<xfix> tar xf perl-5.22.2.tar.gz # Ah, whatever, I\'m doing it anyway
author | HackBot |
---|---|
date | Sat, 14 May 2016 14:54:38 +0000 |
parents | |
children |
line wrap: on
line source
@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