- remove legacy support code for Perl 5.005_03

This commit is contained in:
Yen-Ming Lee 2007-02-01 07:02:03 +00:00
parent 8d1da19aa0
commit d70facf08c
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=183837
7 changed files with 6 additions and 89 deletions

View file

@ -29,10 +29,4 @@ MAN3= CPAN::YACSmoke.3 \
CPAN::YACSmoke::Plugin::SmokeDB.3 \ CPAN::YACSmoke::Plugin::SmokeDB.3 \
CPAN::YACSmoke::Plugin::Recent.3 CPAN::YACSmoke::Plugin::Recent.3
.include <bsd.port.pre.mk> .include <bsd.port.mk>
.if ${PERL_LEVEL} < 500601
IGNORE= "Needs perl 5.6.1 or higher, install lang/perl5 or lang/perl5.8 and try again"
.endif
.include <bsd.port.post.mk>

View file

@ -15,14 +15,8 @@ PKGNAMEPREFIX= p5-
MAINTAINER= leeym@FreeBSD.org MAINTAINER= leeym@FreeBSD.org
COMMENT= Perl interface to dialog(3) COMMENT= Perl interface to dialog(3)
.include <bsd.port.pre.mk>
.if ${PERL_LEVEL} >= 500600
EXTRA_PATCHES= ${FILESDIR}/extra-Dialog.xs
.endif
PERL_CONFIGURE= yes PERL_CONFIGURE= yes
MAN3= Dialog.3 MAN3= Dialog.3
.include <bsd.port.post.mk> .include <bsd.port.mk>

View file

@ -1,45 +0,0 @@
--- 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);

View file

@ -20,11 +20,4 @@ PERL_CONFIGURE= yes
MAN3= File::Temp.3 MAN3= File::Temp.3
.include <bsd.port.pre.mk> .include <bsd.port.mk>
# requires Carp::Heavy since File-Temp-0.17
.if ${PERL_LEVEL} < 500600
IGNORE= requires perl 5.6.0 or later. Install lang/perl5.8 and try again
.endif
.include <bsd.port.post.mk>

View file

@ -19,11 +19,4 @@ PERL_CONFIGURE= yes
MAN3= Tie::Restore.3 MAN3= Tie::Restore.3
.include <bsd.port.pre.mk> .include <bsd.port.mk>
.if ${PERL_LEVEL} < 500600
post-patch:
${PERL} -pi -e 's/^our (\S+)/use vars qw($$1); $$1/' ${WRKSRC}/Restore.pm
.endif
.include <bsd.port.post.mk>

View file

@ -23,10 +23,4 @@ PLIST_FILES= ${SITE_PERL_REL}/accessors.pm ${SITE_PERL_REL}/accessors/chained.pm
${SITE_PERL_REL}/accessors/classic.pm ${SITE_PERL_REL}/accessors/classic.pm
PLIST_DIRS= ${SITE_PERL_REL}/accessors PLIST_DIRS= ${SITE_PERL_REL}/accessors
.include <bsd.port.pre.mk> .include <bsd.port.mk>
.if ${PERL_LEVEL} < 500600
IGNORE= requires perl 5.6.0 or above
.endif
.include <bsd.port.post.mk>

View file

@ -19,10 +19,4 @@ PERL_CONFIGURE= yes
MAN3= Unicode::Unihan.3 MAN3= Unicode::Unihan.3
.include <bsd.port.pre.mk> .include <bsd.port.mk>
.if ${PERL_LEVEL} < 500600
IGNORE= requires perl 5.6.0 or later. Install lang/perl5.8 then try again
.endif
.include <bsd.port.post.mk>