for my $file (@files) {
my $file_basename=basename($file);
# find out when the photo was shot
- my $info = ImageInfo($file);
+ my $info = ImageInfo($file,[qw(CreateDate Serial)]);
if (not defined $info->{CreateDate}) {
print STDERR "No date information for $file\n";
next;
if (-e $f->{name}) {
$f->{exists} = 1;
if (not exists $f->{info} or not defined $f->{info}) {
- $f->{info} = ImageInfo($f->{name});
+ $f->{info} = ImageInfo($f->{name},[qw(CreateDate Serial)]);
}
} else {
$f->{exists} = 0;