avoid unecessary try for over optimization
That was lots of code and hash map touching for the case where one avoided a extra stat, which result probably was in the page cache anyway, for the case that a backup has a comment. A case which is rather be unlikely - comments are normally done for the occasional explicit backup (e.g., before major upgrade, before a configuration change in that guest, ...), at least not worth some relatively complicated effort making that sub harder to read and maintain. Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
This commit is contained in:
@ -989,18 +989,7 @@ my $get_subdir_files = sub {
|
||||
|
||||
my $res = [];
|
||||
|
||||
my $has_comment = {};
|
||||
|
||||
foreach my $fn (<$path/*>) {
|
||||
|
||||
if (COMMENT_EXT eq substr($fn, -length(COMMENT_EXT))) {
|
||||
my $real_fn = substr($fn, 0, length($fn) - length(COMMENT_EXT));
|
||||
if (!defined($has_comment->{$real_fn})) {
|
||||
$has_comment->{$real_fn} = (-f $fn);
|
||||
}
|
||||
next; # we do not need to do anything with comments themselves
|
||||
}
|
||||
|
||||
my $st = File::stat::stat($fn);
|
||||
|
||||
next if (!$st || S_ISDIR($st->mode));
|
||||
@ -1034,11 +1023,7 @@ my $get_subdir_files = sub {
|
||||
}
|
||||
|
||||
my $comment_fn = $original.COMMENT_EXT;
|
||||
if (!defined($has_comment->{$original})) {
|
||||
$has_comment->{$original} = (-f $comment_fn);
|
||||
}
|
||||
|
||||
if ($has_comment->{$original}) {
|
||||
if (-f $comment_fn) {
|
||||
my $comment = PVE::Tools::file_read_firstline($comment_fn);
|
||||
$info->{comment} = $comment if defined($comment);
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user