summaryrefslogtreecommitdiff
path: root/dev-perl
Unidiff
Diffstat (limited to 'dev-perl') (more/less context) (show whitespace changes)
-rw-r--r--dev-perl/DBD-InterBase/DBD-InterBase-0.46.ebuild20
-rw-r--r--dev-perl/DBD-InterBase/Manifest16
-rw-r--r--dev-perl/DBD-InterBase/files/DBD-InterBase-0.46-column_info.patch60
-rw-r--r--dev-perl/DBD-InterBase/files/DBD-InterBase-0.46-no-test.patch13
-rw-r--r--dev-perl/DBD-InterBase/files/digest-DBD-InterBase-0.463
5 files changed, 112 insertions, 0 deletions
diff --git a/dev-perl/DBD-InterBase/DBD-InterBase-0.46.ebuild b/dev-perl/DBD-InterBase/DBD-InterBase-0.46.ebuild
new file mode 100644
index 0000000..49b1dce
--- a/dev/null
+++ b/dev-perl/DBD-InterBase/DBD-InterBase-0.46.ebuild
@@ -0,0 +1,20 @@
1# Copyright 1999-2007 Gentoo Foundation
2# Distributed under the terms of the GNU General Public License v2
3# $Header: $
4
5inherit perl-module eutils
6
7DESCRIPTION="The Perl DBD::InterBase Module"
8HOMEPAGE="http://cpan.org/modules/by-module/DBD/${P}.readme"
9SRC_URI="mirror://cpan/modules/by-module/DBD/${P}.tar.gz"
10
11LICENSE="|| ( Artistic GPL-2 )"
12SLOT="0"
13KEYWORDS="~x86 ~amd64"
14IUSE=""
15
16DEPEND=">=dev-perl/DBI-1.35 || ( dev-db/interbase dev-db/firebird )"
17
18SRC_TEST="skip"
19PATCHES="${FILESDIR}/${P}-no-test.patch ${FILESDIR}/${P}-column_info.patch"
20pm_echovar="\n\n\n"
diff --git a/dev-perl/DBD-InterBase/Manifest b/dev-perl/DBD-InterBase/Manifest
new file mode 100644
index 0000000..39a1c2a
--- a/dev/null
+++ b/dev-perl/DBD-InterBase/Manifest
@@ -0,0 +1,16 @@
1AUX DBD-InterBase-0.46-column_info.patch 2031 RMD160 3a005a14f865842acd49414f5fe49bec371a3349 SHA1 bb9caa643ac46000575bbbe08723c43bccd5bb40 SHA256 e8af78ac1fe3e64b949e407ab5b2519e0aa884692676d5bb2d9d877d79d24788
2MD5 3912f79d2e314c0b27ea4217df01ecd5 files/DBD-InterBase-0.46-column_info.patch 2031
3RMD160 3a005a14f865842acd49414f5fe49bec371a3349 files/DBD-InterBase-0.46-column_info.patch 2031
4SHA256 e8af78ac1fe3e64b949e407ab5b2519e0aa884692676d5bb2d9d877d79d24788 files/DBD-InterBase-0.46-column_info.patch 2031
5AUX DBD-InterBase-0.46-no-test.patch 282 RMD160 9bb63a3ad0970092978928b74a7fd24f49c0f016 SHA1 13d2c390b0429360bb06a5b437f81ef7a3187375 SHA256 a7c068bc54d009db5d6b9070f5c65084459efadaae6431e346ea39baca73e390
6MD5 c6ad646d7866fd4511377cd93c68c291 files/DBD-InterBase-0.46-no-test.patch 282
7RMD160 9bb63a3ad0970092978928b74a7fd24f49c0f016 files/DBD-InterBase-0.46-no-test.patch 282
8SHA256 a7c068bc54d009db5d6b9070f5c65084459efadaae6431e346ea39baca73e390 files/DBD-InterBase-0.46-no-test.patch 282
9DIST DBD-InterBase-0.46.tar.gz 86440 RMD160 68b40c76338a4d6d13e0ba66c27837377eabbc20 SHA1 5fc0c416479af61e2c96fcfe92ec131609917edd SHA256 f2ae9e209a7ba60c76a0c65b402d222a85f859ed98c46294845c57ae0132f20a
10EBUILD DBD-InterBase-0.46.ebuild 569 RMD160 24cc6a8f320df0882fd3847fd76bf6cbc11669a2 SHA1 3bd8f1ae496f7b4160e8466eafb9952e7ebb11d3 SHA256 4851877dc039ee929d135e7ce85c499ad1c017dba86fa5437e1d65d4249f600c
11MD5 24bd8c557bee3d16df36ab5683f08414 DBD-InterBase-0.46.ebuild 569
12RMD160 24cc6a8f320df0882fd3847fd76bf6cbc11669a2 DBD-InterBase-0.46.ebuild 569
13SHA256 4851877dc039ee929d135e7ce85c499ad1c017dba86fa5437e1d65d4249f600c DBD-InterBase-0.46.ebuild 569
14MD5 6f32bb6dc2c22de18e4f334b63be7411 files/digest-DBD-InterBase-0.46 253
15RMD160 6b3d89bb537b8610ebd9e344ba5bf981cbc81509 files/digest-DBD-InterBase-0.46 253
16SHA256 85221a8ca23598ee94e4054c343ee6e48029f9eb6ee4fb255984cf46d32b5781 files/digest-DBD-InterBase-0.46 253
diff --git a/dev-perl/DBD-InterBase/files/DBD-InterBase-0.46-column_info.patch b/dev-perl/DBD-InterBase/files/DBD-InterBase-0.46-column_info.patch
new file mode 100644
index 0000000..17e9d5a
--- a/dev/null
+++ b/dev-perl/DBD-InterBase/files/DBD-InterBase-0.46-column_info.patch
@@ -0,0 +1,60 @@
1diff --git a/InterBase.pm b/InterBase.pm
2index bdd041e..f615cad 100644
3--- a/InterBase.pm
4+++ b/InterBase.pm
5@@ -210,6 +210,55 @@ sub table_info
6
7 return $sth;
8 }
9+
10+sub column_info
11+{
12+ my $dbh = shift;
13+ my ($catalog,$schema,$table,$column) = (@_);
14+ my (@search)=();
15+ if(defined($table) && length($table)) {
16 +push @search, "r.rdb\$relation_name ". ($table =~ /[_%]/ ? "LIKE " : "= ") .$dbh->quote($table);
17+ }
18+ if(defined($column) && length($column)) {
19 +push @search, "rf.rdb\$field_name ". ($column =~ /[_%]/ ? "LIKE " : "= ") .$dbh->quote($column);
20+ }
21+ my $wherefilter = join ' AND ','',@search;
22+ my $sql = qq!
23 + SELECT
24 + NULL TABLE_CAT,
25 + r.rdb\$owner_name TABLE_SCHEM,
26 + r.rdb\$relation_nameTABLE_NAME,
27 + rf.rdb\$field_nameCOLUMN_NAME,
28 + t.rdb\$type_name DATA_TYPE,
29 + t.rdb\$type_name TYPE_NAME,
30 + f.rdb\$character_lengthCOLUMN_SIZE,
31 + f.rdb\$field_lengthBUFFER_LENGTH,
32 + NULL DECIMAL_DIGITS,
33 + NULL NUM_PREC_RADIX,
34 + rf.rdb\$null_flag NULLABLE,
35 + rf.rdb\$descriptionREMARKS,
36 + rf.rdb\$default_valueCOLUMN_DEF,
37 + t.rdb\$type_name SQL_DATA_TYPE,
38 + NULL SQL_DATETIME_SUB,
39 + f.rdb\$field_lengthCHAR_OCTET_LENGTH,
40 + rf.rdb\$field_positionORDINAL_POSITION,
41 + rf.rdb\$null_flag IS_NULLABLE
42 + FROM
43 + rdb\$relations r
44 + JOIN rdb\$relation_fields rf ON (r.rdb\$relation_name=rf.rdb\$relation_name)
45 + JOIN rdb\$fields f ON (rf.rdb\$field_source=f.rdb\$field_name)
46 + JOIN rdb\$types t ON (f.rdb\$field_type=t.rdb\$type)
47 + WHERE
48 + ((r.rdb\$system_flag=0) OR (r.rdb\$system_flag IS NULL)) AND (r.rdb\$view_source IS NULL)
49 + $wherefilter
50 + ORDER BY r.rdb\$owner_name, r.rdb\$relation_name, rf.rdb\$field_position
51+ !;
52+#print "[[$sql]]";
53+ my $sth = $dbh->prepare($sql);
54+ $sth->execute() or return undef;
55+
56+ return $sth;
57+}
58
59 sub ping
60 {
diff --git a/dev-perl/DBD-InterBase/files/DBD-InterBase-0.46-no-test.patch b/dev-perl/DBD-InterBase/files/DBD-InterBase-0.46-no-test.patch
new file mode 100644
index 0000000..7cce483
--- a/dev/null
+++ b/dev-perl/DBD-InterBase/files/DBD-InterBase-0.46-no-test.patch
@@ -0,0 +1,13 @@
1diff --git a/Makefile.PL b/Makefile.PL
2index dcd4572..beed124 100644
3--- a/Makefile.PL
4+++ b/Makefile.PL
5@@ -544,7 +544,7 @@ else
6 }
7
8 # create the test config file
9-make_test_conf();
10+# make_test_conf();
11
12 # and last but not least write the makefile
13 WriteMakefile(%MakeParams);
diff --git a/dev-perl/DBD-InterBase/files/digest-DBD-InterBase-0.46 b/dev-perl/DBD-InterBase/files/digest-DBD-InterBase-0.46
new file mode 100644
index 0000000..0f48342
--- a/dev/null
+++ b/dev-perl/DBD-InterBase/files/digest-DBD-InterBase-0.46
@@ -0,0 +1,3 @@
1MD5 e192544a4cbd04dfdc060b0ebc53f167 DBD-InterBase-0.46.tar.gz 86440
2RMD160 68b40c76338a4d6d13e0ba66c27837377eabbc20 DBD-InterBase-0.46.tar.gz 86440
3SHA256 f2ae9e209a7ba60c76a0c65b402d222a85f859ed98c46294845c57ae0132f20a DBD-InterBase-0.46.tar.gz 86440