Skip site navigation (1)Skip section navigation (2)
Date:      Fri, 14 Mar 2014 19:30:01 +0400
From:      Yuri Perejilin <yuri@rivera.ru>
To:        FreeBSD-gnats-submit@freebsd.org
Subject:   ports/187578: Relive port: databases/p5-DBD-InterBase perl5 Interbase/Firebird DBI access module
Message-ID:  <899F46BB-7A58-471E-B230-5A78D639D8D1@rivera.ru>
Resent-Message-ID: <201403141540.s2EFe3XQ039598@freefall.freebsd.org>

next in thread | raw e-mail | index | archive | help

>Number:         187578
>Category:       ports
>Synopsis:       Relive port: databases/p5-DBD-InterBase perl5 =
>Confidential:   no
>Severity:       non-critical
>Priority:       medium
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          change-request
>Submitter-Id:   current-users
>Arrival-Date:   Fri Mar 14 15:40:02 UTC 2014
>Closed-Date:
>Last-Modified:
>Originator:     Yuri Perezhilin
>Release:        FreeBSD 10.0-RELEASE amd64
>Organization:
dnlab.ru
>Environment:
System: FreeBSD 10.0-RELEASE FreeBSD 10.0-RELEASE #0 r260789: Thu Jan 16 =
22:34:59 UTC 2014 root@snap.freebsd.org:/usr/obj/usr/src/sys/GENERIC =
amd64
>Description:
	DBD::InterBase is a Perl module which works with the DBI module =
to
provide access to InterBase databases.

WWW: http://search.cpan.org/dist/DBD-InterBase/

>How-To-Repeat:
>Fix:

--- p5-DBD-InterBase.shar begins here ---
# This is a shell archive.  Save it in a file, remove anything before
# this line, and then unpack it by entering "sh file".  Note, it may
# create directories; files and directories will be owned by you and
# have default permissions.
#
# This archive contains:
#
#	p5-DBD-InterBase
#	p5-DBD-InterBase/Makefile
#	p5-DBD-InterBase/distinfo
#	p5-DBD-InterBase/pkg-descr
#	p5-DBD-InterBase/pkg-plist
#	p5-DBD-InterBase/files
#	p5-DBD-InterBase/files/patch-Makefile.PL
#	p5-DBD-InterBase/files/patch-dbdimp.c
#
echo c - p5-DBD-InterBase
mkdir -p p5-DBD-InterBase > /dev/null 2>&1
echo x - p5-DBD-InterBase/Makefile
sed 's/^X//' >p5-DBD-InterBase/Makefile << =
'576518d811578218fef8be587715b779'
X# New ports collection makefile for:	DBD::InterBase
X# Date created:		15 Oct 2001
X# Whom:			Sergey Skvortsov <skv@protey.ru>
X# Date created:		14 March 2014
X# Whom:			Yuri Perezhilin <yuri@rivera.ru>
X#
X# $FreeBSD: $
X#
X
XPORTNAME=3D	DBD-InterBase
XPORTVERSION=3D	0.48
XCATEGORIES=3D	databases perl5
XMASTER_SITES=3D	CPAN
XMASTER_SITE_SUBDIR=3D	DBD
XPKGNAMEPREFIX=3D	p5-
X
XMAINTAINER=3D	yuri@rivera.ru
XCOMMENT=3D	DBI driver for InterBase/Firebird/Yaffil RDBMS server
X
XBUILD_DEPENDS=3D	p5-DBI>=3D0:${PORTSDIR}/databases/p5-DBI
XRUN_DEPENDS:=3D	${BUILD_DEPENDS}
X
XUSE_FIREBIRD=3D	yes
X
XUSES=3D		perl5
XUSE_PERL5=3D	configure
X
Xpost-patch:
X		@${PERL} -pi -e 's,%%IB_BASE%%,${LOCALBASE},g' \
X			${WRKSRC}/Makefile.PL
X
XMAN3=3D		DBD::InterBase.3
X
X.include <bsd.port.pre.mk>
X.if ${PERL_LEVEL} < 501400
XBROKEN=3D	This port for perl version >=3D 5.14
X.endif
X.include <bsd.port.post.mk>
576518d811578218fef8be587715b779
echo x - p5-DBD-InterBase/distinfo
sed 's/^X//' >p5-DBD-InterBase/distinfo << =
'c140f136c1145e2f79dab91e1613df37'
XSHA256 (DBD-InterBase-0.48.tar.gz) =3D =
40b1dba601f10c5d66b26bb235424d398882740b3586a30405123735bc4bec44
XSIZE (DBD-InterBase-0.48.tar.gz) =3D 88658
c140f136c1145e2f79dab91e1613df37
echo x - p5-DBD-InterBase/pkg-descr
sed 's/^X//' >p5-DBD-InterBase/pkg-descr << =
'897f4db4cb24a9ad384ef802cbeac412'
XDBD::InterBase is a Perl module which works with the DBI module to
Xprovide access to InterBase/Firebird/Yaffil databases.
X
XWWW: http://search.cpan.org/dist/DBD-InterBase/
897f4db4cb24a9ad384ef802cbeac412
echo x - p5-DBD-InterBase/pkg-plist
sed 's/^X//' >p5-DBD-InterBase/pkg-plist << =
'732ffc66060159b3065faec76dfc172d'
X%%SITE_PERL%%/%%PERL_ARCH%%/auto/DBD/InterBase/.packlist
X%%SITE_PERL%%/%%PERL_ARCH%%/DBD/InterBase.pm
X%%SITE_PERL%%/%%PERL_ARCH%%/DBD/InterBase/GetInfo.pm
X%%SITE_PERL%%/%%PERL_ARCH%%/DBD/InterBase/TypeInfo.pm
X%%SITE_PERL%%/%%PERL_ARCH%%/auto/DBD/InterBase/InterBase.bs
X%%SITE_PERL%%/%%PERL_ARCH%%/auto/DBD/InterBase/InterBase.so
X@dirrm %%SITE_PERL%%/%%PERL_ARCH%%/DBD/InterBase
X@dirrmtry %%SITE_PERL%%/%%PERL_ARCH%%/DBD
X@dirrm %%SITE_PERL%%/%%PERL_ARCH%%/auto/DBD/InterBase
X@dirrmtry %%SITE_PERL%%/%%PERL_ARCH%%/auto/DBD
732ffc66060159b3065faec76dfc172d
echo c - p5-DBD-InterBase/files
mkdir -p p5-DBD-InterBase/files > /dev/null 2>&1
echo x - p5-DBD-InterBase/files/patch-Makefile.PL
sed 's/^X//' >p5-DBD-InterBase/files/patch-Makefile.PL << =
'6f9d8846a6b7a5865679d767be975462'
X--- Makefile.PL.orig	Sat Nov 22 06:12:11 2003
X+++ Makefile.PL	Mon Dec  8 20:01:27 2003
X@@ -28,7 +28,7 @@
X use DBI::DBD;   # DBD creation tools
X=20
X my $ib_dir_prefix;
X-
X+=3Drem
X # init stuff
X my $IB_Bin_path =3D '';
X my $isql_name;
X@@ -82,7 +82,12 @@
X     @ib_bin_dirs =3D (qw(/usr/interbase/bin /opt/interbase/bin =
/opt/firebird/bin /usr/bin /usr/local/bin));
X     @ib_inc_dirs =3D (qw(/usr/interbase/include /opt/interbase/include =
/opt/firebird/include /usr/include));
X }
X-
X+=3Dcut
X+my $IB_BASE=3D'%%IB_BASE%%';
X+my $IB_Bin_path =3D $IB_BASE.'/bin';
X+my $isql_name =3D 'isql';
X+my $ib_lib_dir =3D $IB_BASE.'/lib';
X+my $ib_inc =3D $IB_BASE.'/include';
X sub locate_dbi_arch_dir {
X     my $dbidir =3D dbd_dbi_dir();
X     my @try =3D map { "$_/auto/DBI" } @INC;
X@@ -91,7 +96,7 @@
X     Carp::carp( "Multiple copies of Driver.xst found in: @xst") if =
@xst > 1;
X     return $xst[0];
X }
X-
X+=3Drem
X =
##########################################################################=
######
X # sub test_files - checks if at least one of the files in the list =
exists
X # Paramters:
X@@ -296,13 +301,13 @@
X=20
X # prompt for InterBase bin directory
X $IB_Bin_path =3D dir_choice("InterBase/Firebird bin directory", =
[@ib_bin_dirs], [qw(gfix gfix.exe)]);
X-
X+=3Dcut
X unless(-x $IB_Bin_path)
X {
X     carp "I cannot find your InterBase/Firebird =
installation.\nDBD::InterBase cannot build or run without InterBase.\n";
X     exit 1;
X }
X-
X+=3Drem
X # get InterBase version
X my $IBVERSION;
X my $GFIX_PATH =3D $IB_Bin_path . "/" . test_files($IB_Bin_path, =
[qw(gfix gfix.exe)]);
X@@ -312,7 +317,7 @@
X=20
X # prompt for IB include dir
X my $ib_inc =3D dir_choice("InterBase/Firebird include directory", =
[@ib_inc_dirs], [qw(gds.h ibase.h)]);
X-
X+=3Dcut
X=20
X # we use a hash for the MakeMaker parameters
X my %MakeParams =3D (
X@@ -323,14 +328,14 @@
X     'CCFLAGS'       =3D> '',
X     'INC'           =3D> qq(-I"$ib_inc" =
-I"${\locate_dbi_arch_dir()}"),
X     'OBJECT'        =3D> "InterBase.o dbdimp.o",
X-    'LIBS'          =3D> [''],
X+    'LIBS'          =3D> "-L$ib_lib_dir -lgds",
X     'OPTIMIZE'      =3D> $Config::Config{'optimize'},
X     'XSPROTOARG'    =3D> '-noprototypes',
X     'dist'          =3D> {COMPRESS=3D>'gzip -9f', SUFFIX=3D>'gz'},
X     'clean'         =3D> {FILES =3D> "*.xsi *.old t/*.old *~ t/*~ =
trace.txt t/trace.txt lib/DBD/InterBase/*~ lib/DBD/InterBase/*.old =
lib/Bundle/DBD/*~ lib/Bundle/DBD/*.old"},
X     'realclean'     =3D> {FILES =3D> "t/test.conf"},
X );
X-
X+=3Drem
X # the OS specific build environment setup
X my $os =3D $Config::Config{'osname'};
X if ($os eq 'MSWin32')
X@@ -530,7 +535,7 @@
X=20
X # create the test config file
X make_test_conf();
X-
X+=3Dcut
X # and last but not least write the makefile
X WriteMakefile(%MakeParams);
X=20
6f9d8846a6b7a5865679d767be975462
echo x - p5-DBD-InterBase/files/patch-dbdimp.c
sed 's/^X//' >p5-DBD-InterBase/files/patch-dbdimp.c << =
'754bd142b4501fea0d8d076b4de9cbf8'
X--- dbdimp.c.orig	2008-01-08 09:02:45.000000000 +0300
X+++ dbdimp.c		2014-01-27 13:58:49.202445490 +0400
X@@ -113,7 +113,7 @@
X=20
X     if (DBIc_TRACE_LEVEL(imp_xxh) >=3D 2)
X         PerlIO_printf(DBIc_LOGPIO(imp_xxh), "%s error %d recorded: =
%s\n",=20
X-            what, rc, SvPV(errstr,na));
X+            what, rc, SvPV(errstr,PL_na));
X }
X=20
X #define CALC_AVAILABLE(buff) sizeof(buff) - strlen(buff) - 1
X@@ -693,7 +693,7 @@
X         return Nullsv;
X     else
X     {
X-        if ((result =3D=3D &sv_yes) || (result =3D=3D &sv_no))
X+        if ((result =3D=3D &PL_sv_yes) || (result =3D=3D &PL_sv_no))
X             return result;
X         else
X             return sv_2mortal(result);
X@@ -1991,8 +1991,8 @@
X         DBIh_EVENT2(drh, ERROR_event, DBIc_ERR(imp_drh), =
DBIc_ERRSTR(imp_drh));
X         return FALSE;
X     }
X-    if (perl_destruct_level)
X-        perl_destruct_level =3D 0;
X+    if (PL_perl_destruct_level)
X+        PL_perl_destruct_level =3D 0;
X     return FALSE;
X }
X
754bd142b4501fea0d8d076b4de9cbf8
exit
--- p5-DBD-InterBase.shar ends here ---



>Release-Note:
>Audit-Trail:
>Unformatted:
 Interbase/Firebird DBI access module



Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?899F46BB-7A58-471E-B230-5A78D639D8D1>