X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=blobdiff_plain;f=Web.pm;h=ea6f32f68c7e673f21ff4cbd36c466e787cb2b7f;hp=5c7348e75c5d6cbbf03038b7f017327fa3bdbc8d;hb=23bbfdb08c25726bc9687423c10dd28b08753436;hpb=f17b70752bed854cdeb75cdd10c7229ca068b798

diff --git a/Web.pm b/Web.pm
index 5c7348e..ea6f32f 100644
--- a/Web.pm
+++ b/Web.pm
@@ -183,6 +183,8 @@ my($in)=@_;
 
 	if (my $uri=$ENV{"REQUEST_URI"}) {
 		if ($W->{"args"}{"Wabs"}) {
+			# FIXME: $in may not be defined here!
+			# to prevent: Use of uninitialized value in ...
 			if ($in=~m#^/#) {
 				$in=~s#^/*##;
 				}
@@ -409,7 +411,7 @@ my($url,$contents,%args)=@_;
 	$r.='"';
 	do { $r.=" $_" if $_; } for ($args{"attr"});
 	$r.='>'.$contents.'</a>';
-	if ($args{"size"} && url_is_local($url) && $url=~/[.](?:gz|Z|rpm|zip|deb|lha)/) {	# Downloadable?
+	if ($args{"size"} && url_is_local($url) && ($args{"size"}>=2 || $url=~/[.](?:gz|Z|rpm|zip|deb|lha)/)) {	# Downloadable?
 		$url=top_dir_disk().$url if $url=~m#^/#;
 		if (!-r $url)
 			{ cluck "File not readable: $url"; }