remove old

5 files changed, 2 insertions, 639 deletions

diff --git a/dev-perl/GD/GD-2.07.ebuild b/dev-perl/GD/GD-2.07.ebuild
deleted file mode 100644
index 87fd557ec3ce..000000000000
--- a/dev-perl/GD/GD-2.07.ebuild
+++ /dev/null
@@ -1,52 +0,0 @@
-# Copyright 1999-2004 Gentoo Foundation
-# Distributed under the terms of the GNU General Public License v2
-# $Header: /var/cvsroot/gentoo-x86/dev-perl/GD/GD-2.07.ebuild,v 1.11 2004/10/19 07:45:58 absinthe Exp $
-
-inherit eutils perl-module
-
-DESCRIPTION="interface to Thomas Boutell's gd library"
-HOMEPAGE="http://www.cpan.org/modules/by-module/GD/${P}.readme"
-SRC_URI="http://www.cpan.org/modules/by-module/GD/${P}.tar.gz"
-
-LICENSE="|| ( Artistic GPL-2 )"
-SLOT="0"
-KEYWORDS="x86 ppc sparc alpha hppa ia64 amd64 ~mips"
-IUSE="jpeg truetype X gif"
-
-DEPEND=">=media-libs/gd-2.0.5
-	media-libs/libpng
-	sys-libs/zlib
-	jpeg? ( media-libs/jpeg )
-	truetype? ( =media-libs/freetype-2* )
-	X? ( virtual/x11 )
-	gif? ( media-libs/giflib )"
-
-src_unpack() {
-	unpack ${A}
-	cd ${S}
-	epatch ${FILESDIR}/${PV}-makefile-opts.patch
-	use gif && epatch ${FILESDIR}/${PV}-gif-support.patch
-
-	use jpeg \
-		&& jpeg=1 \
-		|| jpeg=0
-
-	use truetype \
-		&& freetype=1 \
-		|| freetype=0
-
-	use X \
-		&& x=1 \
-		|| x=0
-
-	cp Makefile.PL{,.orig}
-	sed \
-		-e "s:GENTOO_JPEG:${jpeg}:" \
-		-e "s:GENTOO_FREETYPE:${freetype}:" \
-		-e "s:GENTOO_XPM:${x}:" \
-		Makefile.PL.orig > Makefile.PL
-
-	perl-module_src_prep
-}
-
-mydoc="GD.html"
diff --git a/dev-perl/GD/GD-2.12.ebuild b/dev-perl/GD/GD-2.12.ebuild
index c9637bd19750..52e70009d0d5 100644
--- a/dev-perl/GD/GD-2.12.ebuild
+++ b/dev-perl/GD/GD-2.12.ebuild
@@ -1,6 +1,6 @@
 # Copyright 1999-2004 Gentoo Foundation
 # Distributed under the terms of the GNU General Public License v2
-# $Header: /var/cvsroot/gentoo-x86/dev-perl/GD/GD-2.12.ebuild,v 1.4 2004/10/16 23:57:22 rac Exp $
+# $Header: /var/cvsroot/gentoo-x86/dev-perl/GD/GD-2.12.ebuild,v 1.5 2004/11/01 01:46:16 vapier Exp $
 
 inherit eutils perl-module
 
@@ -10,7 +10,7 @@ SRC_URI="http://www.cpan.org/modules/by-module/GD/${P}.tar.gz"
 
 LICENSE="|| ( Artistic GPL-2 )"
 SLOT="0"
-KEYWORDS="~x86 ~ppc ~sparc ~alpha ~hppa ~ia64 ~amd64 ~mips"
+KEYWORDS="alpha amd64 hppa ia64 mips ppc sparc x86"
 IUSE="jpeg truetype X gif"
 
 DEPEND=">=media-libs/gd-2.0.5
diff --git a/dev-perl/GD/files/2.07-gif-support.patch b/dev-perl/GD/files/2.07-gif-support.patch
deleted file mode 100644
index 279840357a6a..000000000000
--- a/dev-perl/GD/files/2.07-gif-support.patch
+++ /dev/null
@@ -1,544 +0,0 @@
-diff -Naurp GD-2.05.orig/GD.pm GD-2.05/GD.pm
---- GD-2.05.orig/GD.pm	2002-11-24 20:27:31.000000000 -0500
-+++ GD-2.05/GD.pm	2003-01-06 17:07:02.000000000 -0500
-@@ -166,6 +166,15 @@ sub GD::Image::newFromPng {
-     $class->_newFromPng($fh,@_);
- }
- 
-+sub GD::Image::newFromGif {
-+    croak("Usage: newFromGid(class,filehandle)") unless @_==2;
-+    my($class) = shift;
-+    my($f)     = shift;
-+    my $fh = $class->_make_filehandle($f);
-+    binmode($fh);
-+    $class->_newFromGif($fh);
-+}
-+
- sub GD::Image::newFromJpeg {
-     croak("Usage: newFromJpeg(class,filehandle,[truecolor])") unless @_>=2;
-     my($class) = shift;
-@@ -211,6 +220,7 @@ sub _image_type {
-   my $data = shift;
-   my $magic = substr($data,0,4);
-   return 'Png'  if $magic eq "\x89PNG";
-+  return 'Gif'  if $magic eq "GIF8";
-   return 'Jpeg' if $magic eq "\377\330\377\340";
-   return 'Jpeg' if $magic eq "\377\330\377\356";
-   return 'Gd2'  if $magic eq "gd2\000";
-@@ -617,6 +627,14 @@ you can call the image query methods des
- The newFromPngData() method will create a new GD::Image initialized
- with the PNG format B<data> contained in C<$data>.
- 
-+=item B<$image = GD::Image-E<gt>newFromGif($file)>
-+
-+=item B<$image = GD::Image-E<gt>newFromGifData($data)>
-+
-+These methods will create an image from a GIF file.  They work just
-+like newFromPng() and newFromPngData(), and will accept the same
-+filehandle and pathname arguments.
-+
- =item B<$image = GD::Image-E<gt>newFromJpeg($file, [$truecolor])>
- 
- =item B<$image = GD::Image-E<gt>newFromJpegData($data, [$truecolor])>
-@@ -745,6 +763,10 @@ pipe it to a display program, or write i
- Same as gd(), except that it returns the data in compressed GD2
- format.
- 
-+=item B<$gifdata = $image-E<gt>gif>
-+
-+Same as gd(), except that it returns the data in GIF format.
-+
- =item B<$wbmpdata = $image-E<gt>wbmp([$foreground])>
- 
- This returns the image data in WBMP format, which is a black-and-white
-diff -Naurp GD-2.05.orig/GD.xs GD-2.05/GD.xs
---- GD-2.05.orig/GD.xs	2002-11-22 14:20:54.000000000 -0500
-+++ GD-2.05/GD.xs	2003-01-06 17:07:02.000000000 -0500
-@@ -251,6 +251,7 @@ extern	gdFontPtr	gdFontTiny;
- #ifdef PERL_OBJECT
- #  ifdef WIN32
- #define GDIMAGECREATEFROMPNG(x) gdImageCreateFromPng((FILE*)x)
-+#define GDIMAGECREATEFROMGIF(x) gdImageCreateFromGif((FILE*)x)
- #define GDIMAGECREATEFROMXBM(x) gdImageCreateFromXbm((FILE*)x)
- #define GDIMAGECREATEFROMJPEG(x) gdImageCreateFromJpeg((FILE*)x)
- #define GDIMAGECREATEFROMWBMP(x) gdImageCreateFromWBMP((FILE*)x)
-@@ -261,6 +262,7 @@ extern	gdFontPtr	gdFontTiny;
- #else
- #  ifdef USE_PERLIO
- #define GDIMAGECREATEFROMPNG(x) gdImageCreateFromPng(PerlIO_findFILE(x))
-+#define GDIMAGECREATEFROMGIF(x) gdImageCreateFromGif(PerlIO_findFILE(x))
- #define GDIMAGECREATEFROMXBM(x) gdImageCreateFromXbm(PerlIO_findFILE(x))
- #define GDIMAGECREATEFROMJPEG(x) gdImageCreateFromJpeg(PerlIO_findFILE(x))
- #define GDIMAGECREATEFROMWBMP(x) gdImageCreateFromWBMP(PerlIO_findFILE(x))
-@@ -269,6 +271,7 @@ extern	gdFontPtr	gdFontTiny;
- #define GDIMAGECREATEFROMGD2PART(x,a,b,c,d) gdImageCreateFromGd2Part(PerlIO_findFILE(x),a,b,c,d)
- #  else
- #define GDIMAGECREATEFROMPNG(x) gdImageCreateFromPng(x)
-+#define GDIMAGECREATEFROMGIF(x) gdImageCreateFromGif(x)
- #define GDIMAGECREATEFROMXBM(x) gdImageCreateFromXbm(x)
- #define GDIMAGECREATEFROMJPEG(x) gdImageCreateFromJpeg(x)
- #define GDIMAGECREATEFROMWBMP(x) gdImageCreateFromWBMP(x)
-@@ -503,6 +506,23 @@ gdnewFromPngData(packname="GD::Image", i
- 	RETVAL
- 
- GD::Image
-+gdnewFromGifData(packname="GD::Image", imageData, ...)
-+ 	char *	packname
-+	SV *	imageData
-+	PROTOTYPE: $$;$
-+        PREINIT:
-+	  gdIOCtx* ctx;
-+          char*    data;
-+          STRLEN   len;
-+	CODE:
-+	data = SvPV(imageData,len);
-+        ctx = newDynamicCtx(data,len);
-+	RETVAL = (GD__Image) gdImageCreateFromGifCtx(ctx);
-+        (ctx->gd_free)(ctx);
-+	OUTPUT:
-+	RETVAL
-+
-+GD::Image
- gdnewFromGdData(packname="GD::Image", imageData)
- 	char *	packname
- 	SV *	imageData
-@@ -604,6 +624,16 @@ gd_newFromGd(packname="GD::Image", fileh
- 	RETVAL
- 
- GD::Image
-+gd_newFromGif(packname="GD::Image", filehandle)
-+	char *	packname
-+	InputStream	filehandle
-+	PROTOTYPE: $$
-+	CODE:
-+	RETVAL = GDIMAGECREATEFROMGIF(filehandle);
-+	OUTPUT:
-+	RETVAL
-+
-+GD::Image
- gd_newFromGd2(packname="GD::Image", filehandle)
- 	char *	packname
- 	InputStream	filehandle
-@@ -810,6 +840,21 @@ gdgd2(image)
-   OUTPUT:
-     RETVAL
- 
-+SV*
-+gdgif(image)
-+  GD::Image	image
-+  PROTOTYPE: $
-+  CODE:
-+  {
-+	void*         data;
-+	int           size;
-+	data = gdImageGifPtr(image,&size);
-+	RETVAL = newSVpv((char*) data,size);
-+	gdFree(data);
-+  }
-+  OUTPUT:
-+    RETVAL
-+
- int
- gdtransparent(image, ...)
- 	GD::Image	image
-diff -Naurp GD-2.05.orig/t/GD.t GD-2.05/t/GD.t
---- GD-2.05.orig/t/GD.t	2002-11-22 15:30:06.000000000 -0500
-+++ GD-2.05/t/GD.t	2003-01-06 17:07:02.000000000 -0500
-@@ -7,7 +7,7 @@ use constant FONT=>"$Bin/Generic.ttf";
- use constant SKIP_TEST_8 => 1;
- 
- my $loaded;
--BEGIN {$| = 1; $loaded = 0; print "1..10\n"; }
-+BEGIN {$| = 1; $loaded = 0; print "1..11\n"; }
- END {print "not ok 1\n" unless $loaded;}
- 
- use GD qw(:DEFAULT GD_CMP_IMAGE);
-@@ -29,6 +29,7 @@ if (defined $arg && $arg eq '--write') {
-   compare(&test8,8,'write');
-   compare(&test9('frog.xpm'),9,'write');
-   compare(&test10('frog.jpg'),10,'write');
-+  compare(&test11('frog.gif'),11,'write');
- }
- 
- compare(test2(),2);
-@@ -65,6 +66,14 @@ if (GD::Image->newFromJpeg('frog.jpg')) 
-   print "not ok ",10,"\n";
- }
- 
-+if (GD::Image->newFromGif('frog.gif')) {
-+  compare(test11('frog.gif'),11);
-+} elsif ($@ =~/not built with gif support/) {
-+  print "ok ",11," # Skip, no GIF support\n";
-+} else {
-+  print "not ok ",11,"\n";
-+}
-+
- sub compare {
-     my($imageData,$testNo,$fht) = @_;
-     local($/);
-@@ -298,6 +307,6 @@ sub test10 {
- sub test11 {
-   my $fn = shift;
-   my $im = GD::Image->newFromGif($fn);
--  $im->gif;
-+  $im->png;
- }
- 
-diff -Naurp GD-2.05.orig/t/GD.t~ GD-2.05/t/GD.t~
---- GD-2.05.orig/t/GD.t~	1969-12-31 19:00:00.000000000 -0500
-+++ GD-2.05/t/GD.t~	2002-11-22 15:30:06.000000000 -0500
-@@ -0,0 +1,303 @@
-+#!/usr/bin/perl -w
-+
-+use lib './blib/lib','./blib/arch','../blib/lib','../blib/arch';
-+use FileHandle;
-+use FindBin qw($Bin);
-+use constant FONT=>"$Bin/Generic.ttf";
-+use constant SKIP_TEST_8 => 1;
-+
-+my $loaded;
-+BEGIN {$| = 1; $loaded = 0; print "1..10\n"; }
-+END {print "not ok 1\n" unless $loaded;}
-+
-+use GD qw(:DEFAULT GD_CMP_IMAGE);
-+$loaded++;
-+print "ok 1\n";
-+
-+chdir 't' || die "Couldn't change to 't' directory: $!";
-+
-+$arg = shift;
-+
-+if (defined $arg && $arg eq '--write') {
-+  warn "Writing regression files...";
-+  compare(&test2,2,'write');
-+  compare(&test3,3,'write');
-+  compare(&test4,4,'write');
-+  compare(&test5,5,'write');
-+  compare(&test6,6,'write');
-+  compare(&test7,7,'write');
-+  compare(&test8,8,'write');
-+  compare(&test9('frog.xpm'),9,'write');
-+  compare(&test10('frog.jpg'),10,'write');
-+}
-+
-+compare(test2(),2);
-+compare(test3(),3);
-+compare(test4(),4);
-+compare(test5(),5);
-+compare(test6(),6);
-+compare(test7(),7);
-+
-+if (SKIP_TEST_8) {
-+  print "ok 8 # Skip, FreeType changes too frequently to be testable\n";
-+}
-+elsif (GD::Image->stringTTF(0,FONT,12.0,0.0,20,20,"Hello world!")) {
-+  multicompare(test8(),8,undef);
-+} elsif ($@ =~/not built with .+Type font support/) {
-+  print "ok ",8," # Skip, no FreeType font support\n";
-+} else {
-+  print "not ok ",8,"\n";
-+}
-+
-+if (GD::Image->newFromXpm('frog.xpm')) {
-+  compare(test9('frog.xpm'),9);
-+} elsif ($@ =~/not built with xpm support/) {
-+  print "ok ",9," # Skip, no XPM support\n";
-+} else {
-+  print "not ok ",9,"\n";
-+}
-+
-+if (GD::Image->newFromJpeg('frog.jpg')) {
-+  compare(test10('frog.jpg'),10);
-+} elsif ($@ =~/not built with jpeg support/) {
-+  print "ok ",10," # Skip, no JPEG support\n";
-+} else {
-+  print "not ok ",10,"\n";
-+}
-+
-+sub compare {
-+    my($imageData,$testNo,$fht) = @_;
-+    local($/);
-+    undef $/;
-+    my $ok = $testNo;
-+    my $regressdata;
-+    my $file = ($^O eq 'VMS')? "test.out_".$testNo."_png" : "./test.out.$testNo.png";
-+    if (defined $fht and $fht eq 'write') {
-+      open (REGRESSFILE,">$file")
-+	|| die "Can't open regression file '$file': $!\n";
-+      binmode REGRESSFILE;
-+      print REGRESSFILE $imageData;
-+      close REGRESSFILE;
-+    } else {
-+      open (REGRESSFILE,"./$file")
-+        || die "Can't open regression file './t/$file': $!\n";
-+      binmode REGRESSFILE;
-+      $regressdata = <REGRESSFILE>;
-+      close REGRESSFILE;
-+      print $imageData eq $regressdata ? "ok $ok" : "not ok $ok","\n";
-+    }
-+}
-+
-+sub multicompare {
-+  my($imageData,$testNo,$fht,@alt) = @_;
-+  local $/ = undef;
-+  my $ok = $testNo;
-+  my $regressdata;
-+  my $file = ($^O eq 'VMS')? "test.out_".$testNo."_png" : "test.out.$testNo.png";
-+  if (defined $fht and $fht eq 'write') {
-+    die "Not implemented with multicompare";
-+  } else {
-+    my $equal;
-+    opendir(DIR,'.');
-+  ENTRY:
-+    while (my $entry =readdir(DIR)) {
-+      next unless $entry =~ /^$file(-\d+)?/;
-+      open (REGRESSFILE,$entry)
-+	|| die "Can't open regression file './t/$entry': $!\n";
-+      binmode REGRESSFILE;
-+      $regressdata = <REGRESSFILE>;
-+      close REGRESSFILE;
-+      if ($imageData eq $regressdata) {
-+	$equal = 1;
-+	last ENTRY;
-+      }
-+    }
-+    closedir DIR;
-+    print $equal ? "ok $ok" : "not ok $ok","\n";
-+  }
-+}
-+
-+sub test2 {
-+    my($im) = new GD::Image(300,300);
-+    my($white) = $im->colorAllocate(255, 255, 255);        
-+    my($black) = $im->colorAllocate(0, 0, 0);
-+    my($red) = $im->colorAllocate(255, 0, 0);      
-+    my($green) = $im->colorAllocate(0,255,0);
-+    my($yellow) = $im->colorAllocate(255,250,205);
-+    open (TILE,"./tile.png") || die "Can't open tile file: $!";
-+    my($tile) = newFromPng GD::Image(TILE);
-+    close TILE;
-+    $im->setBrush($tile);
-+    $im->arc(100,100,100,150,0,360,gdBrushed);
-+    $im->setTile($tile);
-+    $im->filledRectangle(150,150,250,250,gdTiled);
-+    $im->rectangle(150,150,250,250,$black);
-+    $im->setStyle($green,$green,$green,gdTransparent,$red,$red,$red,gdTransparent);
-+    $im->line(0,280,300,280,gdStyled);
-+    return $im->png;
-+}
-+
-+sub test3 {
-+    my($im) = new GD::Image(300,300);
-+    my($white,$black,$red,$blue,$yellow) = (
-+					    $im->colorAllocate(255, 255, 255),
-+					    $im->colorAllocate(0, 0, 0),
-+					    $im->colorAllocate(255, 0, 0),
-+					    $im->colorAllocate(0,0,255),
-+					    $im->colorAllocate(255,250,205)
-+					    );
-+    my($brush) = new GD::Image(10,10);
-+    $brush->colorAllocate(255,255,255); # white
-+    $brush->colorAllocate(0,0,0);	# black
-+    $brush->transparent($white);	# white is transparent
-+    $brush->filledRectangle(0,0,5,2,$black); # a black rectangle
-+    $im->setBrush($brush);
-+    $im->arc(100,100,100,150,0,360,gdBrushed);
-+    my($poly) = new GD::Polygon;
-+    $poly->addPt(30,30);
-+    $poly->addPt(100,10);
-+    $poly->addPt(190,290);
-+    $poly->addPt(30,290);
-+    $im->polygon($poly,gdBrushed);
-+    $im->fill(132,62,$blue);
-+    $im->fill(100,70,$red);
-+    $im->fill(40,40,$yellow);
-+    $im->interlaced(1);
-+    $im->copy($im,150,150,20,20,50,50);
-+    $im->copyResized($im,10,200,20,20,100,100,50,50);
-+    return $im->png;
-+}
-+
-+sub test4 {
-+    my($im) = new GD::Image(100,50);
-+    my($black,$white,$red,$blue) = 
-+	(
-+	 $im->colorAllocate(0, 0, 0),
-+	 $im->colorAllocate(255, 255, 255),
-+	 $im->colorAllocate(255, 0, 0),
-+	 $im->colorAllocate(0,0,255)
-+	 );
-+    $im->arc(50, 25, 98, 48, 0, 360, $white);
-+    $im->fill(50, 21, $red);
-+    return $im->png;
-+}
-+
-+sub test5 {
-+    my($im) = new GD::Image(225,180);
-+    my($black,$white,$red,$blue,$yellow) = 
-+       ($im->colorAllocate(0, 0, 0),
-+	$im->colorAllocate(255, 255, 255),
-+	$im->colorAllocate(255, 0, 0),
-+	$im->colorAllocate(0,0,255),
-+	$im->colorAllocate(255,250,205)
-+	);
-+    my($poly) = new GD::Polygon;
-+    $poly->addPt(0,50);
-+    $poly->addPt(25,25);
-+    $poly->addPt(50,50);
-+    $im->filledPolygon($poly,$blue);
-+    $poly->offset(100,100);
-+    $im->filledPolygon($poly,$red);
-+    $poly->map(50,50,100,100,10,10,110,60);
-+    $im->filledPolygon($poly,$yellow);
-+    $poly->map($poly->bounds,50,20,80,160);
-+    $im->filledPolygon($poly,$white);
-+    return $im->png;
-+}
-+
-+sub test6 {
-+    my($im) = new GD::Image(300,300);
-+    my($white,$black,$red,$blue,$yellow) = 
-+	(
-+	 $im->colorAllocate(255, 255, 255),
-+	 $im->colorAllocate(0, 0, 0),
-+	 $im->colorAllocate(255, 0, 0),
-+	 $im->colorAllocate(0,0,255),
-+	 $im->colorAllocate(255,250,205)
-+	 );
-+    $im->transparent($white);
-+    $im->interlaced(1);
-+    my($brush) = new GD::Image(10,10);
-+    $brush->colorAllocate(255,255,255);
-+    $brush->colorAllocate(0,0,0);
-+    $brush->transparent($white);
-+    $brush->filledRectangle(0,0,5,2,$black);
-+    $im->string(gdLargeFont,150,10,"Hello world!",$red);
-+    $im->string(gdSmallFont,150,28,"Goodbye cruel world!",$blue);
-+    $im->stringUp(gdTinyFont,280,250,"I'm climbing the wall!",$black);
-+    $im->charUp(gdMediumBoldFont,280,280,"Q",$black);
-+    $im->setBrush($brush);
-+    $im->arc(100,100,100,150,0,360,gdBrushed);
-+    $poly = new GD::Polygon;
-+    $poly->addPt(30,30);
-+    $poly->addPt(100,10);
-+    $poly->addPt(190,290);
-+    $poly->addPt(30,290);
-+    $im->polygon($poly,gdBrushed);
-+    $im->fill(132,62,$blue);
-+    $im->fill(100,70,$red);
-+    $im->fill(40,40,$yellow);
-+    return $im->png;
-+}
-+
-+sub test7 {
-+    my $dtor = 0.0174533;
-+    my $pi = 3.141592654;
-+    my $xsize = 500;   my $ysize = 500;   my $scale = 1;
-+    my $x_offset = $xsize/2;   my $y_offset = $ysize/2;
-+    my $im = new GD::Image($xsize,$ysize);
-+    my $poly = new GD::Polygon;
-+    my $col_bg = $im->colorAllocate(0,0,0);
-+    my $col_fg = $im->colorAllocate(255,255,0);
-+    my $col_fill = $im->colorAllocate(255,0,0);
-+    my $r_0 = 100;     my $theta_0 = 20;      my $spring_factor = 30;
-+    for($theta=0;$theta<=360;$theta++) {
-+	my $r = $r_0 + $spring_factor*sin(2*$pi*$theta/$theta_0);
-+	my $x = int($r * cos($theta*$dtor))*$scale+$x_offset;
-+	my $y = int($r * sin($theta*$dtor))*$scale+$y_offset;
-+	$poly->addPt($x,$y);
-+    }
-+
-+    $im->filledPolygon($poly,$col_fill);            # Call gdImageFilledPolygon()
-+
-+    return $im->png;
-+}
-+
-+sub test8 {
-+  my $im = GD::Image->new(400,250);
-+  if (!$im) { printf("Test7: no image");};
-+  my($white,$black,$red,$blue,$yellow) = 
-+    (
-+     $im->colorAllocate(255, 255, 255),
-+     $im->colorAllocate(0, 0, 0),
-+     $im->colorAllocate(255, 0, 0),
-+     $im->colorAllocate(0,0,255),
-+     $im->colorAllocate(255,250,205)
-+    );
-+
-+  # Some TTFs
-+  $im->stringFT($black,FONT,12.0,0.0,20,20,"Hello world!") || warn $@;
-+  $im->stringFT($red,FONT,14.0,0.0,20,80,"Hello world!") || warn $@;
-+  $im->stringFT($blue,FONT,30.0,-0.5,60,100,"Goodbye cruel world!") || warn $@;
-+  $im->png;
-+}
-+
-+sub test9 {
-+  my $fn = shift;
-+  my $im = GD::Image->newFromXpm($fn);
-+  $im->png;
-+}
-+
-+sub test10 {
-+  my $fn = shift;
-+  my $im = GD::Image->newFromJpeg($fn);
-+  $im->png;
-+}
-+
-+# not used
-+sub test11 {
-+  my $fn = shift;
-+  my $im = GD::Image->newFromGif($fn);
-+  $im->gif;
-+}
-+
-diff -Naurp GD-2.05.orig/t/frog.gif GD-2.05/t/frog.gif
---- GD-2.05.orig/t/frog.gif	1969-12-31 19:00:00.000000000 -0500
-+++ GD-2.05/t/frog.gif	2003-01-06 17:07:02.000000000 -0500
-@@ -0,0 +1,28 @@
-+GIF89a0
-+-L�z��_R`�q�s��e��B���'p�b��=&L�"�@^�FHr����&`Jw�f���+��Ñ'tGYxS�
=H#C?��
Y���`��7^x��|��z@7�uxc�p���0`�,��

8D�C6S��$^c����H��<���d��Yp���̰C7��C��b6C!P��Ery������>$���>���O	�p�~\:44DCC=��B<
-+`3�5��VP3E
-+��1�N��
��C�>�
-+�i6;���\A
*����L��?�#@>
��
-+3�0��3	9�`�L$�PrI�$�M4��$�C�3NQ3(S�2�0�D�Hp-�<���b�
-+�a���_�8�q�c�#x)��]'[9
�����;��Ol n4��L(�(@��
-+]�b��@2�pHN���2.!���
-+PH�
Pc	J�D2|ZHs�#�
-+���
-+X�b�
-+Z����D"ш�"�@9'�AH� :8��Ax��
-+�3�t<�q�Ap��`;���F���(����]|���P�.|q��מ�`�.X�F<B�O�ܛ~��۝�`z7G��_�b�/|�V���� �.`̡�X���_����%�!:!�N����M1
-+��	��rWr�Mݤ���W�7
-+� �W
-+�@
-+�`���}"(
-+��
-+������~��
-+����M��
-+��s�p
-+��
-+� y�`8��
-+��
-+ؗ}�`k�v�k�s� �
-+k�v�@�7x{8h
-+��
-+����v�
-\ No newline at end of file
-diff -Naurp GD-2.05.orig/t/test.out.11.png GD-2.05/t/test.out.11.png
---- GD-2.05.orig/t/test.out.11.png	1969-12-31 19:00:00.000000000 -0500
-+++ GD-2.05/t/test.out.11.png	2003-01-06 17:07:02.000000000 -0500
-@@ -0,0 +1,13 @@
-+�PNG

-+
-+
-+;".��1=
-+���$�}�t�؉�'N�:q�T����3�dX��F~�ɔ���S��L�9��n�:2.��w�,:'�C&-%C��	P�8>�m���3� 6bzs�����锈�o��D!Yl�ɉ�|�b�0�O��m޵kז��X���ٽ�swkuJh�}>$e8"�\�pd�p�IO:�|��.�m!� �S�
��.� ��8X?6B��+�L�M���`(;�:h��������U
�6nn*�={w|�52��G�o3,.6�?2��8o��;霝�C��cGw�]vz��@P������ ��8z�sâ��_k
`��ŠsG#՛��\>�����C`��rݹ�p����<��ha͟��Yt�s,�-,6��xg��K��
-+�ܿ�I
-+ޙwI��S�)��Ӻ�G��^v˥yccyʞ�|���%�������7�z�/T��pm��C�~�jN��cF (�b��EG�#YA�}����@��-� ^��2��PA
-+�6Q-L�*ޚ#�1��i�EmQ�;�1}��m�۷

?�7[2A`���S���O�cÛ{q�Խ�It:̘��8F��>���	��I�_^��
-+ש�SAb���%Z*�ъJ(t:�X�R�1��lS�i_��=���S�~Rن��!ᶮ����|:�p�D�!���Я���#9�����S謨W����>U�À^�f�w�n�k�'
-+�U�S��r�wq
��_)�И�����@��ݻ�`r��g�}�r�=Ŷvt��D�.-8�x��(=�Uw;159��
-+I�T*��hk_?��t��F;�@O�kR%�����y�5�zxc~��z�#F�h!�x�������i���C��
-+����8Y�p�����r|����Xk^�N N.O��j�ax���+EZA�.�nU���SLǗ���Z[�z�x�x�u�OO�_�+q��]�YP&-�O"�'�[�
�7�&2.�\(I��ݘ����IՎP&�)��~�u��������ꖟZnU�W�xY��<.���+I��`��(:1^��kU�~�P-�W^VSs�?��Za��f��xYYY\n�D��i��i�x	�ǽ�jjq�b�O-���V 	�ª*����HO��r�F�DZ����.^,�f�f��".��EpoCANNF��depK2�r�;�Û�!=-�"�6�W467�"�/2BPY)�l9�����7��r �y9���23��-U�˛�7U�-	���
H����������f�~_��,�u�IxW,�uWt��f]�
-+j�kjj@n֥�_-�t)�/]�?�_����`�rѝ2ѿ�A�RO58@�����������׊�FqcsUe���ZQ��&X�����V$�YYy��F@ͽZA�@PS+(��s�����@
-\ No newline at end of file
diff --git a/dev-perl/GD/files/2.07-makefile-opts.patch b/dev-perl/GD/files/2.07-makefile-opts.patch
deleted file mode 100644
index de46f51e87f4..000000000000
--- a/dev-perl/GD/files/2.07-makefile-opts.patch
+++ /dev/null
@@ -1,40 +0,0 @@
---- Makefile.PL.orig	2003-06-26 11:09:51.000000000 -0400
-+++ Makefile.PL	2003-06-26 11:12:50.000000000 -0400
-@@ -94,12 +94,7 @@
- ###################################################################
- # path to libgd, skip prompt if passed in from above
- ###################################################################
--my $PREFIX = $lib_gd_path;
--if( ! defined($lib_gd_path) )
--{
--  warn "\n";
--  $PREFIX = lc prompt('Where is libgd installed?','/usr/lib');
--}
-+my $PREFIX = '/usr/lib';
- 
- unless ($PREFIX eq '/usr/lib') {
-   $PREFIX =~ s!/lib$!!;
-@@ -112,20 +107,9 @@
- ##################################################################################################################
- # If build options have not been passed in then prompt for settings
- ##################################################################################################################
--my ($JPEG, $FT, $XPM) = (undef, undef, undef);
--if( defined($options) )
--{
--    if( $options =~ m/JPEG/i )  {  $JPEG = 1;  }  else  {  $JPEG = 0;  }
--    if( $options =~ m/FT/i )    {  $FT   = 1;  }  else  {  $FT   = 0;  }
--    if( $options =~ m/XPM/i )   {  $XPM  = 1;  }  else  {  $XPM  = 0;  }
--}
--else
--{
--    warn "\nPlease choose the features that match how libgd was built:\n";
--    $JPEG = lc prompt('Build JPEG support?','y') eq 'y';
--    $FT   = lc prompt('Build FreeType support?','y') eq 'y';
--    $XPM  = $^O !~ /^freebsd|MSWin32$/ && lc prompt('Build XPM support?','y') eq 'y';
--}
-+my $JPEG    = 'GENTOO_JPEG';
-+my $FT      = 'GENTOO_FREETYPE';
-+my $XPM     = 'GENTOO_XPM';
- ##################################################################################################################
- 
- my $FCGI    = 0;   # set to 1 to build compatability with fastCGI
diff --git a/dev-perl/GD/files/digest-GD-2.07 b/dev-perl/GD/files/digest-GD-2.07
deleted file mode 100644
index 2fc4d5b313a3..000000000000
--- a/dev-perl/GD/files/digest-GD-2.07
+++ /dev/null
@@ -1 +0,0 @@
-MD5 7a44d308e082471e824fcbff044d8300 GD-2.07.tar.gz 153759