a_href "size"=>2 forces the size indicator even for properly non-suffixed files.

[MyWeb.git] / Project.pm

diff --git a/Project.pm b/Project.pm
index 2088d99..ab40eb7 100644 (file)
--- a/Project.pm
+++ b/Project.pm
@@ -86,7 +86,7 @@ my($class,$ListItem,%args)=@_;
                                                return "Download".$_[0];
                                                },
                                "format"=>sub ($) {
-                                               return a_href($_[0],CGI::escapeHTML(File::Basename::basename($_[0])));
+                                               return a_href($_[0],CGI::escapeHTML(File::Basename::basename($_[0])),"size"=>2);
                                                }},
                {"key"=>qr(^link\b),"text"=>sub ($) {
                                                $_[0]=~s/^link-//;