hjp
/
finddup
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Port to perl 5.24+ 

The experimental autoderef feature was cancelled in 5.24.
Use postderef instead which is available (originally also experimental,
but now mainline) since 5.20.
This commit is contained in:
Peter J. Holzer 2019-04-20 00:56:17 +02:00
parent bd73933105
commit bcfae857e0
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
finddup2
View File

@ -6,7 +6,7 @@ finddup - yet another tool for finding duplicates
=cut =cut
use v5.10; use v5.20;
no autovivification 'fetch'; no autovivification 'fetch';
use File::Find; use File::Find;
use File::stat; use File::stat;
@ -25,11 +25,11 @@ find(sub {
unless ($haystack->{$size}{$hash}) { unless ($haystack->{$size}{$hash}) {
$haystack->{$size}{$hash} = []; $haystack->{$size}{$hash} = [];
} }
push $haystack->{$size}{$hash}, { path => $File::Find::name, push $haystack->{$size}{$hash}->@*, { path => $File::Find::name,
size => $size, size => $size,
dev => $st->dev, dev => $st->dev,
ino => $st->ino, ino => $st->ino,
}; };
} }
}, },
$haystackdir $haystackdir
@ -50,7 +50,7 @@ find(
unless ($haystack->{$size}{$hash}) { unless ($haystack->{$size}{$hash}) {
$haystack->{$size}{$hash} = []; $haystack->{$size}{$hash} = [];
} }
push $haystack->{$size}{$hash}, $file; push $haystack->{$size}{$hash}->@*, $file;
} }
delete $haystack->{$size}{""}; delete $haystack->{$size}{""};
} }