diff --git a/Yard.pm b/Yard.pm index 1d4bfeb..08b858a 100644 --- a/Yard.pm +++ b/Yard.pm @@ -501,8 +501,16 @@ 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}) {