From 475d5b279433dbf5b755a0b52bbdce7e1ed49ab0 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 2 Aug 2004 04:35:24 +0000 Subject: perl_checker cleanups --- clean_files | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'clean_files') diff --git a/clean_files b/clean_files index e39a58a..f0ae5e8 100755 --- a/clean_files +++ b/clean_files @@ -10,10 +10,10 @@ #--------------------------------------------------------------- ################################################################################ -$RPM_BUILD_ROOT=$ENV{RPM_BUILD_ROOT}; -chdir($RPM_BUILD_ROOT) || die "Can't cd to $ENV{RPM_BUILD_ROOT}: $!"; +my $RPM_BUILD_ROOT = $ENV{RPM_BUILD_ROOT}; +chdir($RPM_BUILD_ROOT) or die "Can't cd to $ENV{RPM_BUILD_ROOT}: $!"; -system(split(/\s+/,"find . -type f -a +system(split(/\s+/, "find . -type f -a ( -name #*# -o -name *~ -o -name DEADJOE -o -name .cvsignore -o -name *.orig -o -name *.rej -o -name *.bak -o -name .*.orig -o -name .*.rej -o -name .SUMS -- cgit v1.2.1