cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix p5-GD 1.41 so it will work with gd 1.8.3

Browse Source 
This actually works when I include the patches.
--
From: MAINTAINER
This commit is contained in:
brad 2002-11-30 05:31:47 +00:00
parent e145e97201
commit 9ca14a6485
3 changed files with 57 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
graphics/p5-GD/patches/patch-GD_pm Normal file
View File

@ -0,0 +1,12 @@
$OpenBSD: patch-GD_pm,v 1.1 2002/11/30 05:31:47 brad Exp $
--- GD.pm.orig Sun Nov 24 03:42:23 2002
+++ GD.pm Sun Nov 24 03:41:55 2002
@@ -58,7 +58,7 @@ $VERSION = "1.41";
# documentation error
*GD::Polygon::delete = \&GD::Polygon::deletePt;
-*GD::Image::stringTTF = \&GD::Image::stringFT;
+*GD::Image::stringFT = \&GD::Image::stringTTF;
sub AUTOLOAD {
# This AUTOLOAD is used to 'autoload' constants from the constant()

29
graphics/p5-GD/patches/patch-GD_xs Normal file
View File

@ -0,0 +1,29 @@
$OpenBSD: patch-GD_xs,v 1.1 2002/11/30 05:31:47 brad Exp $
--- GD.xs.orig Sun Nov 24 03:38:02 2002
+++ GD.xs Sun Nov 24 03:38:39 2002
@@ -17,6 +17,7 @@
#endif
/* Copyright 1995 - 1998, Lincoln D. Stein. See accompanying README file for
usage restrictions */
+#define gdFree free
static int
not_here(char *s)
@@ -1351,7 +1352,7 @@ gdstringUp(image,font,x,y,s,color)
}
void
-gdstringFT(image,fgcolor,fontname,ptsize,angle,x,y,string)
+gdstringTTF(image,fgcolor,fontname,ptsize,angle,x,y,string)
SV * image
int fgcolor
char * fontname
@@ -1376,7 +1377,7 @@ gdstringFT(image,fgcolor,fontname,ptsize
img = NULL;
}
- err = gdImageStringFT(img,brect,fgcolor,fontname,ptsize,angle,x,y,string);
+ err = gdImageStringTTF(img,brect,fgcolor,fontname,ptsize,angle,x,y,string);
if (err) {
errormsg = perl_get_sv("@",0);
if (errormsg != NULL)

16
graphics/p5-GD/patches/patch-t_GD_t Normal file
View File

@ -0,0 +1,16 @@
$OpenBSD: patch-t_GD_t,v 1.1 2002/11/30 05:31:47 brad Exp $
--- t/GD.t.orig Mon Jul 22 14:26:26 2002
+++ t/GD.t Sun Nov 24 14:50:08 2002
@@ -284,9 +284,9 @@ sub test7 {
);
# Some TTFs
- $im->stringFT($black,FONT,12.0,0.0,20,20,"Hello world!") || return;
- $im->stringFT($red,FONT,14.0,0.0,20,80,"Hello world!") || return;
- $im->stringFT($blue,FONT,30.0,-0.5,60,100,"Goodbye cruel world!") || die $@;
+ $im->stringTTF($black,FONT,12.0,0.0,20,20,"Hello world!") || return;
+ $im->stringTTF($red,FONT,14.0,0.0,20,80,"Hello world!") || return;
+ $im->stringTTF($blue,FONT,30.0,-0.5,60,100,"Goodbye cruel world!") || die $@;
$im->png;
}