7 files changed, 90 insertions, 0 deletions

diff --git a/devel/Makefile b/devel/Makefile
index b1e287487dd1..c8a1ab8227d6 100644
--- a/devel/Makefile
+++ b/devel/Makefile
@@ -236,6 +236,7 @@
     SUBDIR += p5-Devel-DProf
     SUBDIR += p5-Devel-Peek
     SUBDIR += p5-Devel-Symdump
+    SUBDIR += p5-Dialog
     SUBDIR += p5-Errno
     SUBDIR += p5-File-BasicFlock
     SUBDIR += p5-File-Binary
diff --git a/devel/p5-Dialog/Makefile b/devel/p5-Dialog/Makefile
new file mode 100644
index 000000000000..e568a97aa8cf
--- /dev/null
+++ b/devel/p5-Dialog/Makefile
@@ -0,0 +1,27 @@
+# New ports collection makefile for:	p5-Dialog
+# Date created:				28 Augest 2000
+# Whom:	      				Yen-Ming Lee <leeym@cae.ce.ntu.edu.tw>
+#
+# $FreeBSD$
+#
+
+PORTNAME=	Dialog
+PORTVERSION=	0.03
+CATEGORIES=	devel perl5
+MASTER_SITES=	${MASTER_SITE_PERL_CPAN}
+MASTER_SITE_SUBDIR=	Dialog
+PKGNAMEPREFIX=	p5-
+
+MAINTAINER=	leeym@cae.ce.ntu.edu.tw
+
+.include <bsd.port.pre.mk>
+.if ${OSVERSION} >= 500007
+EXTRA_PATCHES=	${FILESDIR}/extra-Dialog.xs
+.endif
+
+PERL_CONFIGURE=	YES
+
+MANPREFIX=	${PREFIX}/lib/perl5/${PERL_VERSION}
+MAN3=		Dialog.3
+
+.include <bsd.port.post.mk>
diff --git a/devel/p5-Dialog/distinfo b/devel/p5-Dialog/distinfo
new file mode 100644
index 000000000000..41ebf3d5589b
--- /dev/null
+++ b/devel/p5-Dialog/distinfo
@@ -0,0 +1 @@
+MD5 (Dialog-0.03.tar.gz) = ed18a299b29025a87f51c4f8bd646a16
diff --git a/devel/p5-Dialog/files/extra-Dialog.xs b/devel/p5-Dialog/files/extra-Dialog.xs
new file mode 100644
index 000000000000..0efd5c68d47e
--- /dev/null
+++ b/devel/p5-Dialog/files/extra-Dialog.xs
@@ -0,0 +1,45 @@
+--- Dialog.xs.orig	Mon Nov 27 23:15:18 2000
++++ Dialog.xs	Mon Nov 27 23:15:53 2000
+@@ -314,11 +314,11 @@
+ 	New(0,item_list,2 * item_no,uchar*);
+ 	item_ptr = item_list;
+ 	for(i=0; i<item_no; i++) {
+-	  *(item_ptr++) = item = SvPV(ST(i+5), na);
+-	  tmpsz = na + 1;
++	  *(item_ptr++) = item = SvPV(ST(i+5), PL_na);
++	  tmpsz = PL_na + 1;
+ 	  if(tmpsz > size) size = tmpsz;
+ 	  len = strlen(item);
+-	  *(item_ptr++) = item + len + (len < na);
++	  *(item_ptr++) = item + len + (len < PL_na);
+ 	}
+ 	New(0,result,size,char);
+ 	cancel = dialog_menu(title, prompt, height, width, menu_height,
+@@ -346,10 +346,10 @@
+ 	New(0,item_list,3 * item_no,uchar*);
+ 	item_ptr = item_list;
+ 	for(i=0; i<item_no; i++) {
+-	  *(item_ptr++) = item = SvPV(ST(i+5), na);
+-	  size += na + 1;
++	  *(item_ptr++) = item = SvPV(ST(i+5), PL_na);
++	  size += PL_na + 1;
+ 	  len = strlen(item);
+-	  *(item_ptr++) = item + len + (len < na);
++	  *(item_ptr++) = item + len + (len < PL_na);
+ 	  *(item_ptr++) = item + len;
+ 	}
+ 	New(0,result,size,char);
+@@ -386,10 +386,10 @@
+ 	New(0,item_list,3 * item_no,uchar*);
+ 	item_ptr = item_list;
+ 	for(i=0; i<item_no; i++) {
+-	  *(item_ptr++) = item = SvPV(ST(i+5), na);
+-	  size += na + 1;
++	  *(item_ptr++) = item = SvPV(ST(i+5), PL_na);
++	  size += PL_na + 1;
+ 	  len = strlen(item);
+-	  *(item_ptr++) = item + len + (len < na);
++	  *(item_ptr++) = item + len + (len < PL_na);
+ 	  *(item_ptr++) = item + len;
+ 	}
+ 	New(0,result,size,char);
diff --git a/devel/p5-Dialog/pkg-comment b/devel/p5-Dialog/pkg-comment
new file mode 100644
index 000000000000..b109e182b44b
--- /dev/null
+++ b/devel/p5-Dialog/pkg-comment
@@ -0,0 +1 @@
+Perl interface to dialog(3)
diff --git a/devel/p5-Dialog/pkg-descr b/devel/p5-Dialog/pkg-descr
new file mode 100644
index 000000000000..cc14f33f3917
--- /dev/null
+++ b/devel/p5-Dialog/pkg-descr
@@ -0,0 +1 @@
+Dialog - Perl interface to dialog(3)
diff --git a/devel/p5-Dialog/pkg-plist b/devel/p5-Dialog/pkg-plist
new file mode 100644
index 000000000000..b09bbcf8290b
--- /dev/null
+++ b/devel/p5-Dialog/pkg-plist
@@ -0,0 +1,14 @@
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/Dialog.pm
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/Dialog.pod
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/Dialog/Const.pm
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/Dialog/TButton.pm
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/Dialog/TInputLine.pm
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/Dialog/TLabel.pm
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Dialog/.packlist
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Dialog/Const/autosplit.ix
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Dialog/Dialog.bs
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Dialog/Dialog.so
+lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Dialog/autosplit.ix
+@dirrm lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Dialog/Const
+@dirrm lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/auto/Dialog
+@dirrm lib/perl5/site_perl/%%PERL_VER%%/%%PERL_ARCH%%/Dialog