dev-perl/DBD-InterBase

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