Hi,

I am not sure if have all the facts assembled but it looks like I 
have a clash between two localy installed packages; Image::Info and 
Image::MetaData.

I only noticed when I tried to use Image::Info to read some data on a 
TIFF file. I got the error:

Undefined subroutine &Image::Info::TIFF::process_ifds called by 
/usr/lib/perl5/site_perl/5.8.6/Image/Info/TIFF.pm line 203


/usr/lib/perl5/site_perl/5.8.6/Image/  has the following file/dirs.

drwxr-xr-x  2 root root  4096 Sep 25 18:51 Info
-r--r--r--  1 root root 13443 Jul 16 12:22 Info.pm
drwxr-xr-x  3 root root  4096 Aug  3 14:19 MetaData
-r--r--r--  1 root root 37661 Jun 10 07:05 Size.pm
-r--r--r--  1 root root 31298 Mar  5  2006 TIFF.pm

/usr/lib/perl5/site_perl/5.8.6/Image/Info has these.

-r--r--r--  1 root root 5446 Mar  3  2006 BMP.pm
-r--r--r--  1 root root 5419 Aug 24  2001 GIF.pm
-r--r--r--  1 root root 8196 Jul 15 13:25 JPEG.pm
-r--r--r--  1 root root 4093 Aug 24  2001 PNG.pm
-r--r--r--  1 root root 2584 Mar  3  2006 PPM.pm
-r--r--r--  1 root root 3949 Jul 16 13:15 SVG.pm
-r--r--r--  1 root root 6731 Jul 15 12:06 TIFF.pm
-r--r--r--  1 root root 2721 Mar  5  2006 XBM.pm
-r--r--r--  1 root root 4972 Mar  5  2006 XPM.pm

I expect that the Info package wants the file in the latter directory 
but is retrieving the first one in it's path. The two files are 
completely different:

Image::TIFF.pm 
==========
package Image::TIFF;

# Copyright 1999-2001, Gisle Aas.       # Does LWP/HTTP stuff.
# Copyright 2006 Tels

use strict;
use vars qw($VERSION);

$VERSION = '1.04';

my @types = (
  [ "BYTE",      "C1", 1],
  [ "ASCII",     "A1", 1],
  [ "SHORT",     "n1", 2],
  [ "LONG",      "N1", 4],
  [ "RATIONAL",  "N2", 8],
  [ "SBYTE",     "c1", 1],
  [ "UNDEFINED", "a1", 1],
  [ "SSHORT",    "n1", 2],
  [ "SLONG",     "N1", 4],
  [ "SRATIONAL", "N2", 8],
  [ "FLOAT",     "f1", 4],  # XXX 4-byte IEEE format
  [ "DOUBLE",    "d1", 8],  # XXX 8-byte IEEE format
);
....
...snip.

Image::Info::TIFF.pm
==============
package Image::Info::TIFF;

$VERSION = 0.02;

use strict;
use Config;
use Carp qw(confess);
use Image::TIFF;

my @types = (
  [ "ERROR INVALID TYPE",     "?", 0],
  [ "BYTE",      "C", 1],
  [ "ASCII",     "A", 1],
  [ "SHORT",     "S", 2],
  [ "LONG",      "L", 4],
  [ "RATIONAL",  "N2", 8],
  [ "SBYTE",     "c", 1],
  [ "UNDEFINED", "a", 1],
  [ "SSHORT",    "s", 2],
  [ "SLONG",     "l", 4],
  [ "SRATIONAL", "N2", 8],
  [ "FLOAT",     "f", 4],
  [ "DOUBLE",    "d", 8],
);

...
...snip.

It there some way I can force it to use the correct TIFF.pm? Does 
this sound like a bug? I haven't come across something like this 
before.

Thanx.
Dp.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to