/usr/lib/perl5/DBD/Firebird/TableInfo.pm is in libdbd-firebird-perl 1.15-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | use strict;
package DBD::Firebird::TableInfo;
sub factory {
my (undef, $dbh) = @_;
my ($vers, $klass);
$vers = $dbh->func('version', 'ib_database_info')->{version};
$dbh->trace_msg("TableInfo factory($dbh [$vers])");
if ($vers =~ /firebird (\d\.\d+)/i and $1 >= 2.1) {
$klass = 'DBD::Firebird::TableInfo::Firebird21';
} else {
$klass = 'DBD::Firebird::TableInfo::Basic';
}
eval "require $klass";
if ($@) {
$dbh->set_err(1, "DBD::Firebird::TableInfo factory: $@");
return undef;
}
$klass->new() if $klass;
}
1;
|