diff --git a/graphics/p5-GD/patches/patch-GD_pm b/graphics/p5-GD/patches/patch-GD_pm
new file mode 100644
index 00000000000..88618b9dee9
--- /dev/null
+++ b/graphics/p5-GD/patches/patch-GD_pm
@@ -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()
diff --git a/graphics/p5-GD/patches/patch-GD_xs b/graphics/p5-GD/patches/patch-GD_xs
new file mode 100644
index 00000000000..b4bfbed0fe2
--- /dev/null
+++ b/graphics/p5-GD/patches/patch-GD_xs
@@ -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)
diff --git a/graphics/p5-GD/patches/patch-t_GD_t b/graphics/p5-GD/patches/patch-t_GD_t
new file mode 100644
index 00000000000..da1ec4a9254
--- /dev/null
+++ b/graphics/p5-GD/patches/patch-t_GD_t
@@ -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;
+ }
+