ports/187578: Relive port: databases/p5-DBD-InterBase perl5 Interbase/Firebird DBI access module
Yuri Perejilin
yuri at rivera.ru
Fri Mar 14 15:40:03 UTC 2014
>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 at 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 at protey.ru>
X# Date created: 14 March 2014
X# Whom: Yuri Perezhilin <yuri at 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 at 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 at dirrm %%SITE_PERL%%/%%PERL_ARCH%%/DBD/InterBase
X at dirrmtry %%SITE_PERL%%/%%PERL_ARCH%%/DBD
X at dirrm %%SITE_PERL%%/%%PERL_ARCH%%/auto/DBD/InterBase
X at 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
More information about the freebsd-ports-bugs
mailing list