From a139e5334b39c839cc4254e6533d5fb51f44069f Mon Sep 17 00:00:00 2001
From: hjp <hjp>
Date: Mon, 18 Mar 2002 20:33:46 +0000
Subject: [PATCH] Ignore atime for directories

---
 agestat/agestat.pl | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/agestat/agestat.pl b/agestat/agestat.pl
index 5e3c206..ea7fbb9 100755
--- a/agestat/agestat.pl
+++ b/agestat/agestat.pl
@@ -1,6 +1,6 @@
 #!@@@perl@@@ -w
 #
-# $Id: agestat.pl,v 1.4 2001-01-19 19:06:01 hjp Exp $
+# $Id: agestat.pl,v 1.5 2002-03-18 20:33:46 hjp Exp $
 #
 
 use strict;
@@ -33,8 +33,8 @@ sub wanted {
     my $age = $now - (
 	$opts{atime} ? $st->atime :
 	$opts{mtime} ? $st->mtime :
-		       ($st->atime > $st->mtime ? $st->atime
-		                                : $st->mtime ));
+		       (! -d && $st->atime > $st->mtime ? $st->atime
+		                                        : $st->mtime ));
     #print $File::Find::name, ": $age sec, ", $st->size, " bytes, ", $st->nlink, " links\n";
     my $log2age = log($age >= 1 ? $age : 1) / $log_2;
     $hist[$log2age] += $st->size / $st->nlink;
@@ -80,7 +80,10 @@ for (my $i = 0; $i <= $#hist; $i++) {
 }
 
 # $Log: agestat.pl,v $
-# Revision 1.4  2001-01-19 19:06:01  hjp
+# Revision 1.5  2002-03-18 20:33:46  hjp
+# Ignore atime for directories
+#
+# Revision 1.4  2001/01/19 19:06:01  hjp
 # Removed superfluous "total" line.
 # Fixed usage message.
 #