Changeset 17666

Show
Ignore:
Timestamp:
03.11.2008 19:26:52 (11 years ago)
Author:
max
Message:

Added file extensions for JPEG2000

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/ImagePlugin.pm

    r17483 r17666  
    8989    my $self = shift (@_); 
    9090 
    91     return q^(?i)(\.jpe?g|\.gif|\.png|\.bmp|\.xbm|\.tif?f)$^;  
     91    # from .jpf and onwards below, the file extensions are for JPEG2000 
     92    return q^(?i)(\.jpe?g|\.gif|\.png|\.bmp|\.xbm|\.tif?f|\.jpf|\.jpx|\.jp2|\.jpc|\.j2k|\.pnm|\.pgx)$^;  
    9293} 
    9394