Skip Menu |

This queue is for tickets about the Image-ExifTool CPAN distribution.

Report information
The Basics
Id: 8240
Status: resolved
Priority: 0/
Queue: Image-ExifTool

People
Owner: EXIFTOOL [...] cpan.org
Requestors: merlyn [...] stonehenge.com
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 3.72
Fixed in: 3.74



Subject: ImageInfo horses around with $_ (failure to localize)
I had to change a loop that began: for (@ARGV) { my $ii = ImageInfo($_, qw(DateTimeOriginal DateTime)) or warn("Skipping $file\n"), next; to for my $file (@ARGV) { my $ii = ImageInfo($file, qw(DateTimeOriginal DateTime)) or warn("Skipping $file\n"), next; because something in ImageInfo is messing with $_. Please be sure you properly localize $_.
Thanks for reporting this problem. I have fixed it and tested with an example similar to the code you sent to be sure it is working properly. As well, I have localized $_ in all other exported functions. This fix will appear in Image::ExifTool version 3.74 which is now available from my web site, and will be uploaded to CPAN within a few days.
CC: MERLYN [...] cpan.org
From: Phil Harvey <phil [...] physics.queensu.ca>
Subject: Re: [cpan #8240] ImageInfo horses around with $_ (failure to localize)
Date: Thu, 4 Nov 2004 11:26:56 -0500
To: bug-Image-ExifTool [...] rt.cpan.org
RT-Send-Cc:
Thanks for pointing this out! (We perl newbies have to learn somehow... ;) ) I have fixed this oversight and released a new version of Image::ExifTool (version 3.74), which is available from my web page: http://owl.phy.queensu.ca/~phil/exiftool/ I will upload a new version to CPAN in a few days. - Phil Harvey On Nov 4, 2004, at 9:08 AM, Randal_L_Schwartz via RT wrote: Show quoted text
> > This message about Image-ExifTool was sent to you by MERLYN > <MERLYN@cpan.org> via rt.cpan.org > > Full context and any attached attachments can be found at: > <URL: https://rt.cpan.org/Ticket/Display.html?id=8240 > > > I had to change a loop that began: > > for (@ARGV) { > my $ii = ImageInfo($_, qw(DateTimeOriginal DateTime)) > or warn("Skipping $file\n"), next; > > to > > for my $file (@ARGV) { > my $ii = ImageInfo($file, qw(DateTimeOriginal DateTime)) > or warn("Skipping $file\n"), next; > > because something in ImageInfo is messing with $_. Please be sure you > properly localize $_.