blob: 24465c27f5c5f18b48b4cd9a724f23ccf8b54813 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
#!/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 {} ;"));
system(split(/\s+/, "find . -type d -a -name CVS -exec rm -rf {} ;"));
# clean_files ends here
|
