summaryrefslogtreecommitdiff
path: root/dev-perl/DBD-InterBase
Side-by-side diff
Diffstat (limited to 'dev-perl/DBD-InterBase') (more/less context) (ignore 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 @@
+# Copyright 1999-2007 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+# $Header: $
+
+inherit perl-module eutils
+
+DESCRIPTION="The Perl DBD::InterBase Module"
+HOMEPAGE="http://cpan.org/modules/by-module/DBD/${P}.readme"
+SRC_URI="mirror://cpan/modules/by-module/DBD/${P}.tar.gz"
+
+LICENSE="|| ( Artistic GPL-2 )"
+SLOT="0"
+KEYWORDS="~x86 ~amd64"
+IUSE=""
+
+DEPEND=">=dev-perl/DBI-1.35 || ( dev-db/interbase dev-db/firebird )"
+
+SRC_TEST="skip"
+PATCHES="${FILESDIR}/${P}-no-test.patch ${FILESDIR}/${P}-column_info.patch"
+pm_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 @@
+AUX DBD-InterBase-0.46-column_info.patch 2031 RMD160 3a005a14f865842acd49414f5fe49bec371a3349 SHA1 bb9caa643ac46000575bbbe08723c43bccd5bb40 SHA256 e8af78ac1fe3e64b949e407ab5b2519e0aa884692676d5bb2d9d877d79d24788
+MD5 3912f79d2e314c0b27ea4217df01ecd5 files/DBD-InterBase-0.46-column_info.patch 2031
+RMD160 3a005a14f865842acd49414f5fe49bec371a3349 files/DBD-InterBase-0.46-column_info.patch 2031
+SHA256 e8af78ac1fe3e64b949e407ab5b2519e0aa884692676d5bb2d9d877d79d24788 files/DBD-InterBase-0.46-column_info.patch 2031
+AUX DBD-InterBase-0.46-no-test.patch 282 RMD160 9bb63a3ad0970092978928b74a7fd24f49c0f016 SHA1 13d2c390b0429360bb06a5b437f81ef7a3187375 SHA256 a7c068bc54d009db5d6b9070f5c65084459efadaae6431e346ea39baca73e390
+MD5 c6ad646d7866fd4511377cd93c68c291 files/DBD-InterBase-0.46-no-test.patch 282
+RMD160 9bb63a3ad0970092978928b74a7fd24f49c0f016 files/DBD-InterBase-0.46-no-test.patch 282
+SHA256 a7c068bc54d009db5d6b9070f5c65084459efadaae6431e346ea39baca73e390 files/DBD-InterBase-0.46-no-test.patch 282
+DIST DBD-InterBase-0.46.tar.gz 86440 RMD160 68b40c76338a4d6d13e0ba66c27837377eabbc20 SHA1 5fc0c416479af61e2c96fcfe92ec131609917edd SHA256 f2ae9e209a7ba60c76a0c65b402d222a85f859ed98c46294845c57ae0132f20a
+EBUILD DBD-InterBase-0.46.ebuild 569 RMD160 24cc6a8f320df0882fd3847fd76bf6cbc11669a2 SHA1 3bd8f1ae496f7b4160e8466eafb9952e7ebb11d3 SHA256 4851877dc039ee929d135e7ce85c499ad1c017dba86fa5437e1d65d4249f600c
+MD5 24bd8c557bee3d16df36ab5683f08414 DBD-InterBase-0.46.ebuild 569
+RMD160 24cc6a8f320df0882fd3847fd76bf6cbc11669a2 DBD-InterBase-0.46.ebuild 569
+SHA256 4851877dc039ee929d135e7ce85c499ad1c017dba86fa5437e1d65d4249f600c DBD-InterBase-0.46.ebuild 569
+MD5 6f32bb6dc2c22de18e4f334b63be7411 files/digest-DBD-InterBase-0.46 253
+RMD160 6b3d89bb537b8610ebd9e344ba5bf981cbc81509 files/digest-DBD-InterBase-0.46 253
+SHA256 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 @@
+diff --git a/InterBase.pm b/InterBase.pm
+index bdd041e..f615cad 100644
+--- a/InterBase.pm
++++ b/InterBase.pm
+@@ -210,6 +210,55 @@ sub table_info
+
+ return $sth;
+ }
++
++sub column_info
++{
++ my $dbh = shift;
++ my ($catalog,$schema,$table,$column) = (@_);
++ my (@search)=();
++ if(defined($table) && length($table)) {
++ push @search, "r.rdb\$relation_name ". ($table =~ /[_%]/ ? "LIKE " : "= ") .$dbh->quote($table);
++ }
++ if(defined($column) && length($column)) {
++ push @search, "rf.rdb\$field_name ". ($column =~ /[_%]/ ? "LIKE " : "= ") .$dbh->quote($column);
++ }
++ my $wherefilter = join ' AND ','',@search;
++ my $sql = qq!
++ SELECT
++ NULL TABLE_CAT,
++ r.rdb\$owner_name TABLE_SCHEM,
++ r.rdb\$relation_name TABLE_NAME,
++ rf.rdb\$field_name COLUMN_NAME,
++ t.rdb\$type_name DATA_TYPE,
++ t.rdb\$type_name TYPE_NAME,
++ f.rdb\$character_length COLUMN_SIZE,
++ f.rdb\$field_length BUFFER_LENGTH,
++ NULL DECIMAL_DIGITS,
++ NULL NUM_PREC_RADIX,
++ rf.rdb\$null_flag NULLABLE,
++ rf.rdb\$description REMARKS,
++ rf.rdb\$default_value COLUMN_DEF,
++ t.rdb\$type_name SQL_DATA_TYPE,
++ NULL SQL_DATETIME_SUB,
++ f.rdb\$field_length CHAR_OCTET_LENGTH,
++ rf.rdb\$field_position ORDINAL_POSITION,
++ rf.rdb\$null_flag IS_NULLABLE
++ FROM
++ rdb\$relations r
++ JOIN rdb\$relation_fields rf ON (r.rdb\$relation_name=rf.rdb\$relation_name)
++ JOIN rdb\$fields f ON (rf.rdb\$field_source=f.rdb\$field_name)
++ JOIN rdb\$types t ON (f.rdb\$field_type=t.rdb\$type)
++ WHERE
++ ((r.rdb\$system_flag=0) OR (r.rdb\$system_flag IS NULL)) AND (r.rdb\$view_source IS NULL)
++ $wherefilter
++ ORDER BY r.rdb\$owner_name, r.rdb\$relation_name, rf.rdb\$field_position
++ !;
++#print "[[$sql]]";
++ my $sth = $dbh->prepare($sql);
++ $sth->execute() or return undef;
++
++ return $sth;
++}
+
+ sub ping
+ {
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 @@
+diff --git a/Makefile.PL b/Makefile.PL
+index dcd4572..beed124 100644
+--- a/Makefile.PL
++++ b/Makefile.PL
+@@ -544,7 +544,7 @@ else
+ }
+
+ # create the test config file
+-make_test_conf();
++# make_test_conf();
+
+ # and last but not least write the makefile
+ 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 @@
+MD5 e192544a4cbd04dfdc060b0ebc53f167 DBD-InterBase-0.46.tar.gz 86440
+RMD160 68b40c76338a4d6d13e0ba66c27837377eabbc20 DBD-InterBase-0.46.tar.gz 86440
+SHA256 f2ae9e209a7ba60c76a0c65b402d222a85f859ed98c46294845c57ae0132f20a DBD-InterBase-0.46.tar.gz 86440