Changeset 53

Show
Ignore:
Timestamp:
04/02/07 18:48:56 (1 year ago)
Author:
simon
Message:

Switch to using Image::Size because the EXIF parsing code in Image::Info was broken, as shown on JPEGs exported by Aperture.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/Memories/Photo.pm

    r50 r53  
    88use File::Find; 
    99use File::MMagic; 
     10use Image::Size qw(imgsize); 
    1011use strict; 
    1112use Carp qw(cluck confess); 
    …… 
    149150        $photo->delete(); die; 
    150151    } 
    151     my ($x, $y) = dim(image_info($photo->path)); 
     152    my ($x, $y, undef) = imgsize($photo->path); 
    152153    $photo->x($x); $photo->y($y); 
    153154 
    …… 
    240241 
    241242use Cache::MemoryCache; 
    242 use Image::Info qw(dim image_info); 
    243243use Image::ExifTool; 
    244244my $cache = new Cache::MemoryCache( { 'namespace' => 'MemoriesInfo' }); 
    …… 
    453453        grep {$md{$_} and $md{$_} =~/[^ 0:]/} 
    454454        (qw(Keywords Subject City State Location Country Province-State),  
    455         'Transmission Reference', 'Intellectual Genre',  
     455        'Intellectual Genre',  
    456456        'Country-Primary Location Name' 
    457457        ); 

  • trunk/README

    r46 r53  
    1010    DBD::mysql 
    1111    Class::DBI::mysql 
    12     Image::Info 
     12    Image::Size 
    1313    Image::Imlib2 (requires libimlib2 and libimlib2-dev packages) 
    1414    Time::Piece