diff --git a/lib/pause_2017/PAUSE/Web/Controller/User/Files.pm b/lib/pause_2017/PAUSE/Web/Controller/User/Files.pm index d48bc3ca4..7d6cc0472 100644 --- a/lib/pause_2017/PAUSE/Web/Controller/User/Files.pm +++ b/lib/pause_2017/PAUSE/Web/Controller/User/Files.pm @@ -176,11 +176,11 @@ sub delete { my $tmpf = $f; $tmpf =~ s/\.(?:readme|meta)$/.tar.gz/; my $info = CPAN::DistnameInfo->new($tmpf); - my $dist = $info->dist; + my $distv = $info->distvname; my $blurb = $deletes{$f} ? $c->scheduled($whendele{$f}) : HTTP::Date::time2str((stat _)[9]); - $files{$f} = {stat => -s _, blurb => $blurb, indexed => $indexed->{$f}, dist => $dist }; + $files{$f} = {stat => -s _, blurb => $blurb, indexed => $indexed->{$f}, distv => $distv }; $pause->{deleting_indexed_files} = 1 if $deletes{$f} && $indexed->{$f}; } $pause->{files} = \%files; diff --git a/lib/pause_2017/templates/user/files/delete.html.ep b/lib/pause_2017/templates/user/files/delete.html.ep index 0b2a4e90f..f159dc89a 100644 --- a/lib/pause_2017/templates/user/files/delete.html.ep +++ b/lib/pause_2017/templates/user/files/delete.html.ep @@ -29,7 +29,7 @@
% for my $file (sort keys %$files) {