Things

Yard.pm

@@ -501,9 +501,17 @@ sub space_check {
     my($total_bytes) = 0;
     my(%counted);
 
+    # %Included synopsis
+    # /path/file (1|symlink)
+    # %replaced_by /path/file /path/file .. <= 
+    # %links_to    /path/file-symnlink   actual-file
+    # %hardlinked  /path/file  dev/inode -> stat()
+
     my ($file);
     foreach $file (keys %Included) {
       
+	print "$file -> $Included{$file} ... $hardlinked{$file}\n";
+
 	my($replacement, $devino);
 	if ($replacement = $replaced_by{$file}) {
 	    #####  Use the replacement file instead of this one.  In the