[Ids-devel] [PATCH] IDS & PerlMagick 5.30

[Caleb E. <ca...@bk...>]

On Fri, Mar 23, 2001 at 07:08:31PM -0500, John Moose wrote:

> Hello.  I just released the final version of IDS 0.6.
> http://ids.sourceforge.net/ Thanks to Eric Case for the website
> redesign.  John

	Not sure if anyone else has been bitten by this, or if the
	latest code handles it, but I just ran nito an issue w/IDS
	when run wiht PerlMagick 5.30 (the debian unstable distro is
	using this now).

	In the function getImageDimensions() in idsShared.pm, the
	Image::Magick::Ping() method is expected to return a
	comma-delimited dtring.  It appears in 5.30 that it now
	returns an array in array context and only the image FORMAT
	when called in scalar context.  The fix is to re-code the
	function as follows:

sub getImageDimensions {
	my $imageName = shift(@_);
	my $preview = new Image::Magick;
	my ($width, $height, $size, $format) = $preview->Ping ($imageName);
	if ($width =~ /,/) {
	   ($width, $height, $size, $format) = split /,/, $width;
	}
	return ($width, $height);
}

	This ought to be backwardly compatible with 5.29's behavior.

-- 
cae at bklyn dot org | Caleb Epstein | bklyn . org | Brooklyn Dust Bunny Mfg.