summaryrefslogtreecommitdiff
path: root/dev-perl/DBD-InterBase/files
authorMichael Krelin <hacker@klever.net>2007-02-21 12:54:42 (UTC)
committer Michael Krelin <hacker@klever.net>2007-02-21 12:54:42 (UTC)
commit8cbfa988f6f527dfa17b5b45112441f105339330 (patch) (side-by-side diff)
tree14448522e7334ed64bb219af9c57d707b8052a34 /dev-perl/DBD-InterBase/files
parent2af935423054a353957b3a49cb9760c654b8431e (diff)
downloadmisc-8cbfa988f6f527dfa17b5b45112441f105339330.zip
misc-8cbfa988f6f527dfa17b5b45112441f105339330.tar.gz
misc-8cbfa988f6f527dfa17b5b45112441f105339330.tar.bz2
dev-perl/DBD-InterBase
Diffstat (limited to 'dev-perl/DBD-InterBase/files') (more/less context) (ignore whitespace changes)
-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
3 files changed, 76 insertions, 0 deletions
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