6 files changed, 72 insertions, 0 deletions

diff --git a/textproc/p5-Text-Graphics/Makefile b/textproc/p5-Text-Graphics/Makefile
new file mode 100644
index 000000000000..b72de67b6954
--- /dev/null
+++ b/textproc/p5-Text-Graphics/Makefile
@@ -0,0 +1,29 @@
+# New ports collection makefile for:	textproc/p5-Text-Graphics
+# Date created:				30 December 2000
+# Whom:					Anton Berezin <tobez@tobez.org>
+#
+# $FreeBSD$
+#
+
+PORTNAME=	Text-Graphics
+PORTVERSION=	1.0001
+CATEGORIES=	textproc perl5
+MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
+MASTER_SITE_SUBDIR=	Text
+PKGNAMEPREFIX=	p5-
+
+MAINTAINER=	tobez@tobez.org
+
+BUILD_DEPENDS=	${LOCALBASE}/lib/perl5/site_perl/${PERL_VER}/Text/Wrapper.pm:${PORTSDIR}/textproc/p5-Text-Wrapper
+RUN_DEPENDS=	${BUILD_DEPENDS}
+
+USE_PERL5=	yes
+PERL_CONFIGURE=	yes
+
+MAN3=		Text::Graphics.3
+MANPREFIX=	${PREFIX}/lib/perl5/${PERL_VERSION}
+
+post-patch:
+	@${RM} ${WRKSRC}/lib/Text/Graphics.pm.orig
+
+.include <bsd.port.mk>
diff --git a/textproc/p5-Text-Graphics/distinfo b/textproc/p5-Text-Graphics/distinfo
new file mode 100644
index 000000000000..7aa0b4fa91c3
--- /dev/null
+++ b/textproc/p5-Text-Graphics/distinfo
@@ -0,0 +1 @@
+MD5 (Text-Graphics-1.0001.tar.gz) = d21ee64f6c8817934a038d14019930fa
diff --git a/textproc/p5-Text-Graphics/files/patch-Graphics.pm b/textproc/p5-Text-Graphics/files/patch-Graphics.pm
new file mode 100644
index 000000000000..8019acad80b8
--- /dev/null
+++ b/textproc/p5-Text-Graphics/files/patch-Graphics.pm
@@ -0,0 +1,30 @@
+--- lib/Text/Graphics.pm.orig	Sat Dec 30 20:01:06 2000
++++ lib/Text/Graphics.pm	Sat Dec 30 20:02:21 2000
+@@ -49,8 +49,8 @@
+   my $child = shift;
+   my $offx = shift;
+   my $offy = shift;
+-  $child->{offx} = ($offx > 0) ? $offx : 0;
+-  $child->{offy} = ($offy > 0) ? $offy : 0;
++  $child->{offx} = (defined($offx) && $offx > 0) ? $offx : 0;
++  $child->{offy} = (defined($offy) && $offy > 0) ? $offy : 0;
+   $child->{parent} = $this;
+   
+   push @{ $this->{children} }, $child;
+@@ -78,7 +78,7 @@
+   my $this = shift;
+   my $gc = shift;
+   
+-  if ($this->{bg} ne undef) {
++  if (defined $this->{bg}) {
+     $gc->fillRect($this->{bg}, 0, 0, $this->{width}, $this->{height});
+   }
+ }
+@@ -413,7 +413,7 @@
+   ## we need to re-wrap iff the width changes
+   ##
+   
+-  if (($width ne undef) and ($this->{width} != $width)) {
++  if ((defined $width) and ($this->{width} != $width)) {
+     delete $this->{text_was_wrapped};
+   }
diff --git a/textproc/p5-Text-Graphics/pkg-comment b/textproc/p5-Text-Graphics/pkg-comment
new file mode 100644
index 000000000000..c17b8845a201
--- /dev/null
+++ b/textproc/p5-Text-Graphics/pkg-comment
@@ -0,0 +1 @@
+A text graphics rendering toolkit
diff --git a/textproc/p5-Text-Graphics/pkg-descr b/textproc/p5-Text-Graphics/pkg-descr
new file mode 100644
index 000000000000..d80c31484300
--- /dev/null
+++ b/textproc/p5-Text-Graphics/pkg-descr
@@ -0,0 +1,7 @@
+This is a toolkit for rendering plain text via an API like that used for
+graphics rendering in GUI toolkits.  This package might be used when you
+want to do sophisticated rendering of plain text, e.g., for graphing,
+creating of complex forms for email and fax, and so on.
+
+-Anton
+<tobez@tobez.org>
diff --git a/textproc/p5-Text-Graphics/pkg-plist b/textproc/p5-Text-Graphics/pkg-plist
new file mode 100644
index 000000000000..a747319850cc
--- /dev/null
+++ b/textproc/p5-Text-Graphics/pkg-plist
@@ -0,0 +1,4 @@
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Text/Graphics/.packlist
+lib/perl5/site_perl/%%PERL_VER%%/Text/Graphics.pm
+@dirrm lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Text/Graphics
+@unexec rmdir %D/lib/perl5/site_perl/%%PERL_VER%%/Text 2>/dev/null || true