Sorry for the noise...
--- llgal.orig 2005-08-22 09:51:39.000000000 +0200
+++ llgal 2005-08-22 09:51:37.000000000 +0200
@@ -969,7 +969,10 @@
my $infos = image_info ("$destination_dir/$filename") ;
if ($make_caption_from_image_comment) {
my $comment ;
- if (($comment = $infos->{UserComment}) ne "") {
+ if (($comment = $infos->{Comment}) ne "") {
+ # GIF/JFIF comment
+ $caption = $comment ;
+ } elsif (($comment = $infos->{UserComment}) ne "") {
# remove trailing spaces
$comment =~ s/\s*$// ;
if ($comment =~ /^ASCII\0\0\0(.*)$/) {
@@ -978,9 +981,6 @@
} elsif (substr ($comment,0,8) ne "\0\0\0\0\0\0\0\0") {
die "Unrecognized Exif UserComment '$comment' length
".(length $comment)."\n" ;
}
- } elsif (($comment = $infos->{Comment}) ne "") {
- # GIF comment
- $caption = $comment ;
}
}
if ($make_caption_from_image_timestamp) {
signature.asc
Description: Digital signature
