Browse Source

Things

master
freesource 24 years ago
parent
commit
be5e62b23d
  1. 8
      Yard.pm

8
Yard.pm

@ -501,8 +501,16 @@ sub space_check {
my($total_bytes) = 0; my($total_bytes) = 0;
my(%counted); 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); my ($file);
foreach $file (keys %Included) { foreach $file (keys %Included) {
print "$file -> $Included{$file} ... $hardlinked{$file}\n";
my($replacement, $devino); my($replacement, $devino);
if ($replacement = $replaced_by{$file}) { if ($replacement = $replaced_by{$file}) {

Loading…
Cancel
Save