A quick update on this. A grep of the file show:
$ifdoff = _process_ifds($info,$fh,$page,0,$byteorder,$ifdoff);
sub _process_ifds {
process_ifds($info,$fh,$page,$tagsseen,$byteorder,$value_offset);
Notice the missing underscore on the last call. Once it was added the
package worked fine.
I got the package from CPAN. I'll try and contact the maintainer and
let them know.
Dp.
On 26 Sep 2006 at 14:53, Beginner wrote:
> 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>
>
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
