1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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)));
|
