h3xx
/
simplify_static_dir
mirror of https://codeberg.org/h3xx/simplify_static_dir
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Refactor 'oldest_mtime' to be static

This commit is contained in:
Dan Church 2023-07-20 12:48:07 -05:00
parent e5c25ef772
commit 5c6f506ed9
Signed by: h3xx
GPG Key ID: EA2BF379CD2CDBD0
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lib/Directory/Simplify/Instruction/Generator.pm
View File

@ -87,11 +87,12 @@ sub _entries_are_hard_linkable {
return 0;
}
sub oldest_mtime {
my $self = shift;
return sort {
sub _oldest_mtime {
my @entries = @_;
my @sorted = sort {
$a->{mtime} <=> $b->{mtime}
} @_;
} @entries;
return @sorted;
}
sub more_linked {
@ -149,7 +150,7 @@ sub instructions {
foreach my $bucket ($self->buckets) {
# of the bucket, find the oldest timestamp
my ($oldest_entry) = $self->oldest_mtime(@{$bucket});
my ($oldest_entry) = _oldest_mtime(@{$bucket});
# of the bucket, find the file most embedded in the file system
my @to_link = $self->more_linked(@{$bucket});