perl-Template-Toolkit-image.patch

   1 diff -uNr Template-Toolkit-2.09-org/lib/Template/Plugin/Image.pm Template-Toolkit-2.09/lib/Template/Plugin/Image.pm
   2 --- Template-Toolkit-2.09-org/lib/Template/Plugin/Image.pm      Wed Apr 23 14:58:29 2003
   3 +++ Template-Toolkit-2.09/lib/Template/Plugin/Image.pm  Mon Jun 30 16:28:12 2003
   4 @@ -43,7 +43,12 @@
   5              my @stuff = Image::Size::imgsize($file);
   6              return { "width"  => $stuff[0],
   7                       "height" => $stuff[1],
   8 -                     "error"  => $stuff[2]
   9 +                     "error"  =>
  10 +                        # imgsize returns either a three letter file type
  11 +                        # or an error message as third value
  12 +                        (defined($stuff[2]) && length($stuff[2]) > 3
  13 +                            ? $stuff[2]
  14 +                            : undef),
  15                     };
  16          }
  17      }