1
0
mirror of https://git.FreeBSD.org/ports.git synced 2025-01-01 05:45:45 +00:00

Workaround hack for perl Ping() method wrong image dimension bug.

According to author, it is fixed in different way in not yet released 5.4.4
This commit is contained in:
Andrey A. Chernov 2002-03-15 06:21:46 +00:00
parent 14449954e0
commit be2c76123e
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=56125
2 changed files with 17 additions and 1 deletions

View File

@ -7,7 +7,7 @@
PORTNAME= ImageMagick
PORTVERSION= 5.4.3.11
PORTREVISION= 1
PORTREVISION= 2
CATEGORIES= graphics perl5
MASTER_SITES= http://imagemagick.sourceforge.net/http/ \
ftp://ftp.yggdrasil.com/mirrors/site/ftp.simplesystems.org/pub/%SUBDIR%/ \

View File

@ -0,0 +1,16 @@
--- PerlMagick/Magick.xs.bak Fri Mar 1 00:35:16 2002
+++ PerlMagick/Magick.xs Fri Mar 15 07:42:00 2002
@@ -6249,9 +6249,11 @@
EXTEND(sp,4*count);
for (p=image ; p != (Image *) NULL; p=p->next)
{
- FormatString(message,"%u",p->columns);
+ FormatString(message,"%u",
+ p->magick_columns ? p->magick_columns : p->columns);
PUSHs(sv_2mortal(newSVpv(message,0)));
- FormatString(message,"%u",p->rows);
+ FormatString(message,"%u",
+ p->magick_rows ? p->magick_rows : p->rows);
PUSHs(sv_2mortal(newSVpv(message,0)));
FormatString(message,"%lu",(unsigned long) GetBlobSize(p));
PUSHs(sv_2mortal(newSVpv(message,0)));