Revision 7b28f87062d70cae1504663a203be0c1236b57a1 authored by dmorton on 06 December 2014, 19:52:23 UTC, committed by dmorton on 06 December 2014, 19:52:23 UTC
1 parent 794fa45
clean-debian-builds.pl
#!/usr/bin/env genome-perl
use strict;
use warnings;
use File::Basename;
chdir File::Basename::dirname(__FILE__);
my @dirs = (glob("*/debian/*"), glob("*/ubuntu-lucid/*"), glob("vendor/*/debian/*"), glob("vendor/*/ubuntu-lucid/*"));
@dirs = grep {
if (m{^(vendor/|)(.*)/(debian|ubuntu-lucid)/(.*)}) {
if ($2 eq $4) {
($_);
}
else {
#print "missed $_\n";
();
}
}
else {
die "odd: $_";
}
}
@dirs;
if (@dirs == 0) {
print "No directories with debian build cruft found under $ENV{PWD} (checkted for 'debian' and 'ubuntu-lucid').\n";
exit;
}
print "Removing all data from these directories under $ENV{PWD}:\n\t",join("\n\t",@dirs),"\n\n";
print "Press ctr-c in 5 seconds if you don't want to do this...\n";
sleep 5;
for my $dir (@dirs) {
my $cmd = "rm -rf '$dir'";
print "RUN: $cmd\n";
my $rv = system $cmd;
$rv /= 256;
if ($rv) {
warn "error for $dir: $!";
next;
}
}
Computing file changes ...