| author | Michael Krelin <hacker@klever.net> | 2007-02-21 12:54:42 (UTC) |
|---|---|---|
| committer | Michael Krelin <hacker@klever.net> | 2007-02-21 12:54:42 (UTC) |
| commit | 8cbfa988f6f527dfa17b5b45112441f105339330 (patch) (side-by-side diff) | |
| tree | 14448522e7334ed64bb219af9c57d707b8052a34 /dev-perl/DBD-InterBase/files | |
| parent | 2af935423054a353957b3a49cb9760c654b8431e (diff) | |
| download | misc-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)
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 |