On Tue, Apr 14, 2009 at 07:48:49PM +0200, Torsten Foertsch wrote:
> On Tue 14 Apr 2009, Roberto C. Sánchez wrote:
> > I am currently using the latter call everywhere and it is still
> > generating the "Undefined subroutine" error.
> 
> Would it be possible to post your module? Perhaps you forgot 
> the "package" declaration?
> 

----------8<---------->8----------

package Example::Image;

use Image::ExifTool;
use vars qw( %dirs %urls );

sub get_image_data ($;$$) {
  my $image_name = $_[0];
  my $image_src = $_[1] ? $_[1] : $urls{'img'};
  my $image_dir = $_[2] ? $_[2] : $dirs{'img'};
  my %image_data;
  $image_data{'src'} = $image_src . $image_name;
  my $info = Image::ExifTool::ImageInfo($image_dir . $image_name);
  $image_data{'comment'} = $$info{'Comment'};
  $image_data{'width'} = $$info{'ImageWidth'};
  $image_data{'height'} = $$info{'ImageHeight'};
  return %image_data;
}

1;

----------8<---------->8----------

Also, let me ephasize that I have three sites using this exact same
module in the same exact manner as the problem site, yet without any
sort of problem.

Regards,

-Roberto

-- 
Roberto C. Sánchez
http://people.connexer.com/~roberto
http://www.connexer.com

Attachment: signature.asc
Description: Digital signature

Reply via email to