Add some more comments

1 files changed, 8 insertions, 0 deletions

diff --git a/checkem b/checkem
index 9bb708c..2b0599a 100755
--- a/checkem
+++ b/checkem
@@ -51,11 +51,19 @@ find {
     no_chdir => 1,
     wanted   => sub {
         my $fn = $File::Find::name;
+
+        # Keep only the stat values we will actually need
         my %st;
         @st{ keys %STATS } = ( stat $fn )[ values %STATS ]
           or return;
+
+        # Check it's a regular file
         return if !( $st{mode} & S_IFREG );
+
+        # Check its size is non-zero
         return if !$st{size};
+
+        # Push the filename and the stats into this size's bucket
         return push @{ $sizes{ $st{size} } },
           {
             fn => $fn,