/usr/share/perl5/Image/ExifTool/Unknown.pm is in libimage-exiftool-perl 8.60-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 | #------------------------------------------------------------------------------
# File: Unknown.pm
#
# Description: Unknown EXIF maker notes tags
#
# Revisions: 04/07/2004 - P. Harvey Created
#------------------------------------------------------------------------------
package Image::ExifTool::Unknown;
use strict;
use vars qw($VERSION);
use Image::ExifTool::Exif;
$VERSION = '1.13';
# Unknown maker notes
%Image::ExifTool::Unknown::Main = (
WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
GROUPS => { 0 => 'MakerNotes', 1 => 'MakerUnknown', 2 => 'Camera' },
# this seems to be a common fixture, so look for it in unknown maker notes
0x0e00 => {
Name => 'PrintIM',
Description => 'Print Image Matching',
SubDirectory => {
TagTable => 'Image::ExifTool::PrintIM::Main',
},
},
);
1; # end
__END__
=head1 NAME
Image::ExifTool::Unknown - Unknown EXIF maker notes tags
=head1 SYNOPSIS
This module is loaded automatically by Image::ExifTool when required.
=head1 DESCRIPTION
Image::ExifTool has definitions for the maker notes from many manufacturers,
however information can sometimes be extracted from unknown manufacturers if
the maker notes are in standard IFD format. This module contains the
definitions necessary for Image::ExifTool to read the maker notes from
unknown manufacturers.
=head1 AUTHOR
Copyright 2003-2011, Phil Harvey (phil at owl.phy.queensu.ca)
This library is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=head1 SEE ALSO
L<Image::ExifTool::TagNames/Unknown Tags>,
L<Image::ExifTool(3pm)|Image::ExifTool>
=cut
|