From 48bff1047b38c3f134a179786438440cc691f227 Mon Sep 17 00:00:00 2001
From: Chmouel Boudjnah <chmouel@mandriva.org>
Date: Fri, 18 Feb 2000 20:00:57 +0000
Subject: Initial revision

---
 clean_files | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 clean_files

(limited to 'clean_files')

diff --git a/clean_files b/clean_files
new file mode 100755
index 0000000..a1fd235
--- /dev/null
+++ b/clean_files
@@ -0,0 +1,23 @@
+#!/usr/bin/perl -w
+#---------------------------------------------------------------
+# Project         : Linux-Mandrake
+# Module          : spec-helper
+# File            : clean_files
+# Version         : $Id$
+# Author          : Frederic Lepied
+# Created On      : Thu Feb 10 10:29:18 2000
+# Purpose         : remove backup files.
+#---------------------------------------------------------------
+
+################################################################################
+$RPM_BUILD_ROOT=$ENV{RPM_BUILD_ROOT};
+chdir($RPM_BUILD_ROOT) || die "Can't cd to $ENV{RPM_BUILD_ROOT}: $!";
+
+system(split(/\s+/,"find . -type f -a
+	        ( -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 )
+		) -exec rm -f {} ;"));
+
+# clean_files ends here
-- 
cgit v1.2.1