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 |