SVN: toys/tools/cleanbuild/findunusedbr

[sparky]

Author: sparky
Date: Wed Feb  3 00:02:16 2010
New Revision: 11125

Modified:
   toys/tools/cleanbuild/findunusedbr
Log:
- resolve non-relative symlinks manually


Modified: toys/tools/cleanbuild/findunusedbr
==============================================================================
--- toys/tools/cleanbuild/findunusedbr	(original)
+++ toys/tools/cleanbuild/findunusedbr	Wed Feb  3 00:02:16 2010
@@ -36,6 +36,11 @@
 		chop $file;
 		my $f = $chroot.$file;
 
+		local $_;
+		while ( $_ = readlink $f and m#^/# ) {
+			 $f = $chroot.$_;
+		}
+
 		# XXX: this truncates mtime to its low resolution value
 		my $mtime = (stat $f)[9];
 		warn "Mtime failed on $f" unless $mtime;
@@ -52,8 +57,15 @@
 		chop $file;
 		my $f = $chroot.$file;
 
+		local $_;
+		while ( $_ = readlink $f and m#^/# ) {
+			 $f = $chroot.$_;
+		}
+
 		my $atime = (stat $f)[8];
-		if ( $atime > 0 ) {
+		if ( not defined $atime ) {
+			print "$rpm: $f no atime\n";
+		} elsif ( $atime > 0 ) {
 			#print "$rpm: $file accessed\n";
 			#$used = 1;
 			return;