r353: * Modified all postinst script fragments to only run when called with

     "configure". I looked at the other possibilities, and I don't think any
     of the supported stuff should be called if the postist is called for
     error unwinds. Closes: #66673
   * Implemented dh_clean -X, to allow specification of files to not delete,
     Closes: #66670

1 files changed, 9 insertions, 1 deletions

diff --git a/dh_clean b/dh_clean
index 1ca10125..4b98a6a0 100755
--- a/dh_clean
+++ b/dh_clean
@@ -30,6 +30,14 @@ if (! $dh{D_FLAG}) {
 		doit("rm","-f","debian/files");
 	}
 
+	# See if some files that would normally be deleted are excluded.
+	if (! defined($dh{EXCLUDE_FIND}) || $dh{EXCLUDE_FIND} eq '') {
+		$find_options="";
+	}
+	else {
+		$find_options="-a ! ( $dh{EXCLUDE_FIND} )";
+	}
+
 	# 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
@@ -39,7 +47,7 @@ if (! $dh{D_FLAG}) {
 		 -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 )
-		) -exec rm -f {} ;"));
+		) $find_options -exec rm -f {} ;"));
 }
 
 doit('rm', '-rf', 'debian/tmp')