Fixed .jpeg files image size.
authorshort <>
Mon, 13 Oct 2003 18:11:52 +0000 (18:11 +0000)
committershort <>
Mon, 13 Oct 2003 18:11:52 +0000 (18:11 +0000)
Web.pm

diff --git a/Web.pm b/Web.pm
index 2a93ce1..a6be6aa 100644 (file)
--- a/Web.pm
+++ b/Web.pm
@@ -446,12 +446,15 @@ sub img_src ($)
 {
 my($file_base)=@_;
 
-       if (!url_is_local($file_base)
-                       # Known image extension?
-                       || $file_base=~m#$img_variants_re#o) {
+       if (!url_is_local($file_base)) {
                return $file_base if !wantarray();
                return ($file_base,$file_base);
                }
+       # Known image extension?
+       if ($file_base=~m#$img_variants_re#o) {
+               return $file_base if !wantarray();
+               return (top_dir($file_base),top_dir_disk().$file_base);
+               }
 
        my $file_base_disk;
        my $file_base_uri;