From 75847ab962eb08422be23aa382ef3486e4851729 Mon Sep 17 00:00:00 2001 From: Chmouel Boudjnah Date: Thu, 6 Apr 2000 02:19:16 +0000 Subject: When we find an orphan man pages, erase it (any better idea ?) --- compress_files | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/compress_files b/compress_files index 2112765..a2ffc17 100755 --- a/compress_files +++ b/compress_files @@ -172,7 +172,7 @@ foreach (keys %hardlinks) { } # Fix up symlinks that were pointing to the uncompressed files. -open (FIND,"find $RPM_BUILD_ROOT -type l |"); +open (FIND,"find usr/man -type l |"); while () { chomp; ($directory)=m:(.*)/:; @@ -180,7 +180,11 @@ while () { if (! -e "$directory/$linkval" && -e "$directory/$linkval.bz2") { system("rm","-f",$_); system("ln","-sf","$linkval.bz2","$_.bz2"); + } elsif (! -e "$directory/$linkval" && ! -e "$directory/linkval.bz2" ) { + #Bad link go on nowhere (any better idea) ? + unlink("$_"); } + } # compress_files ends here -- cgit v1.2.1