X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=dh_clean;h=15cdc661266b433827135a252e9409f2be6d86cc;hb=e2a6d4cec4a7ee952cf6a7f250d80f1d75a38f95;hp=b0936ecb31fc25c51fc696430fb1900ec6c632b7;hpb=3aa6fbb20465d16cf23e1607b078ed3cedf95ebe;p=debhelper.git diff --git a/dh_clean b/dh_clean index b0936ec..15cdc66 100755 --- a/dh_clean +++ b/dh_clean @@ -11,16 +11,32 @@ use Debian::Debhelper::Dh_Lib; =head1 SYNOPSIS -B [S>] [B<-k>] [B<-d>] [B<-X>I] [S>] +B [S>] [B<-k>] [B<-d>] [B<-X>I] [S ...>] =head1 DESCRIPTION -dh_clean is a debhelper program that is responsible for cleaning up after a +B is a debhelper program that is responsible for cleaning up after a package is built. It removes the package build directories, and removes some -other files, such as debian/substvars, debian/files, and any detritus left -behind by other debhelper commands (debian/*.debhelper). It also removes -common files that should not appear in a debian diff: - #*# *~ DEADJOE *.orig *.rej *.SUMS TAGS core .deps/* *.P +other files including F, and any detritus left behind by other +debhelper commands. It also removes common files that should not appear in a +Debian diff: + #*# *~ DEADJOE *.orig *.rej *.SUMS TAGS .deps/* *.P *-stamp + +It does not run "make clean" to clean up after the build process. Use +L to do things like that. + +B (or "B") should be the last debhelper command run in the +B target in F. + +=head1 FILES + +=over 4 + +=item F + +Can list other files to be removed. + +=back =head1 OPTIONS @@ -28,13 +44,7 @@ common files that should not appear in a debian diff: =item B<-k>, B<--keep> -Do not delete debian/files. When do you want to use this? Anytime you have a -debian/rules that has 2 binary targets that build different .deb packages; -for example, one target is binary-arch, and the other is binary-indep, or -one target builds the shared library, and the other the -dev package. If you -didn't use -k in these cases, then debian/files would be deleted in the -middle, and your changes file will only contain the last binary package that -was built. +This is deprecated, use L instead. =item B<-d>, B<--dirs-only> @@ -43,19 +53,27 @@ at all. =item B<-X>I B<--exclude=>I -Exclude files that contain "item" anywhere in their filename from being +Exclude files that contain I anywhere in their filename from being deleted, even if they would normally be deleted. You may use this option multiple times to build up a list of things to exclude. -=item I +=item I ... -Delete these files too. +Delete these Is too. =back =cut -init(); +init(options => { + "dirs-only" => \$dh{D_FLAG}, +}); +inhibit_log(); + +if ($dh{K_FLAG}) { + # dh_prep will be emulated (mostly) by the code below. + warning("dh_clean -k is deprecated; use dh_prep instead"); +} foreach my $package (@{$dh{DOPACKAGES}}) { my $tmp=tmpdir($package); @@ -64,53 +82,62 @@ foreach my $package (@{$dh{DOPACKAGES}}) { if (! $dh{D_FLAG}) { doit("rm","-f","debian/${ext}substvars") unless excludefile("debian/${ext}substvars"); + + # These are all debhelper temp files, and so it is safe to + # wildcard them. + complex_doit("rm -f debian/$ext*.debhelper"); } - doit ("rm","-rf",$tmp) + doit ("rm","-rf",$tmp."/") unless excludefile($tmp); } +# Remove all debhelper logs. +if (! $dh{D_FLAG} && ! $dh{K_FLAG}) { + complex_doit("rm","-f","debian/*.debhelper.log"); + if (compat(1)) { + doit("rm","-f","debian/debhelper.log"); + } +} + if (! $dh{D_FLAG}) { if (@ARGV) { doit("rm","-f","--",@ARGV); } if (! $dh{K_FLAG}) { + if (!compat(6) && -e "debian/clean") { + my @clean=grep { ! excludefile($_) } + filearray("debian/clean", "."); + doit("rm","-f","--",@clean) if @clean; + } + doit("rm","-f","debian/files") unless excludefile("debian/files"); } - # These are all debhelper temp files, and so it is safe to - # wildcard them. - complex_doit("rm -f debian/*.debhelper"); - - # Remove some files that were left around by older versions of - # debhelper. - doit("rm","-f","debian/substvars"); - # See if some files that would normally be deleted are excluded. my $find_options=''; if (defined($dh{EXCLUDE_FIND}) && $dh{EXCLUDE_FIND} ne '') { - $find_options="-a ! ( $dh{EXCLUDE_FIND} )"; + $find_options="! \\( $dh{EXCLUDE_FIND} \\) -a"; } # Remove other temp files. - # (The \s+ is important, \s won't work because find would get null - # parameters). Note that you _don't_ quote wildcards used by find - # in here. - doit(split(/\s+/,"find . -type f -a - ( -name #*# -o -name .*~ -o -name *~ -o -name DEADJOE - -o -name *.orig -o -name *.rej -o -name *.bak - -o -name .*.orig -o -name .*.rej -o -name .SUMS - -o -name TAGS -o -name core -o ( -path */.deps/* -a -name *.P ) - ) $find_options -exec rm -f {} ;")); - - # Stupid autoconf cache directory. - doit("rm", "-rf", "autom4te.cache") - unless excludefile("autom4te.cache"); + complex_doit("find . $find_options \\( \\( -type f -a \\ + \\( -name '#*#' -o -name '.*~' -o -name '*~' -o -name DEADJOE \\ + -o -name '*.orig' -o -name '*.rej' -o -name '*.bak' \\ + -o -name '.*.orig' -o -name .*.rej -o -name '.SUMS' \\ + -o -name TAGS -o \\( -path '*/.deps/*' -a -name '*.P' \\) \\ + \\) -exec rm -f {} \\; \\) -o \\ + \\( -type d -a -name autom4te.cache -prune -exec rm -rf {} \\; \\) \\)"); } -doit('rm', '-rf', 'debian/tmp') if -x 'debian/tmp' && ! compat(1); +doit('rm', '-rf', 'debian/tmp') if -x 'debian/tmp' && ! compat(1) && + ! excludefile("debian/tmp"); + +if (!compat(6) && !$dh{K_FLAG}) { + complex_doit('rm -f *-stamp'); +} =head1 SEE ALSO