You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@lucy.apache.org by ma...@apache.org on 2010/11/05 01:28:16 UTC
[lucy-commits] svn commit: r1031373 - /incubator/lucy/trunk/perl/buildlib/Lucy/Build.pm
Author: marvin
Date: Fri Nov 5 00:28:16 2010
New Revision: 1031373
URL: http://svn.apache.org/viewvc?rev=1031373&view=rev
Log:
Add a "semiclean" action which leaves Charmonizer intact.
Modified:
incubator/lucy/trunk/perl/buildlib/Lucy/Build.pm
Modified: incubator/lucy/trunk/perl/buildlib/Lucy/Build.pm
URL: http://svn.apache.org/viewvc/incubator/lucy/trunk/perl/buildlib/Lucy/Build.pm?rev=1031373&r1=1031372&r2=1031373&view=diff
==============================================================================
--- incubator/lucy/trunk/perl/buildlib/Lucy/Build.pm (original)
+++ incubator/lucy/trunk/perl/buildlib/Lucy/Build.pm Fri Nov 5 00:28:16 2010
@@ -674,6 +674,18 @@ sub _gen_pause_exclusion_list {
return { file => \@excluded_files };
}
+sub ACTION_semiclean {
+ my $self = shift;
+ print "Cleaning up most build files.\n";
+ my @candidates
+ = grep { $_ !~ /(charmonizer|^_charm|charmony|charmonize)/ } $self->cleanup;
+ for my $path ( map { glob($_) } @candidates ) {
+ next unless -e $path;
+ rmtree($path);
+ confess("Failed to remove '$path'") if -e $path;
+ }
+}
+
1;
__END__