Revision 232127d6ccd1724e70547aadd6d02d298995af84 authored by APipe Tester on 17 July 2013, 18:36:27 UTC, committed by APipe Tester on 17 July 2013, 18:36:27 UTC
1 parent 1255d4d
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 ...