Revision history for Perl module DBIx::DBSchema
-0.46 unreleased
+0.47 unreleased
+ - Fix Pg reverse-engineering of default values in Pg v12+
+
+0.46 unreleased (2016)
- Add IF EXISTS to DROP INDEX (except under MySQL)
- Fix table fetching for Sybase and SQLite drivers; refactor table fetching
into a driver-overridable DBIx::DBSchema::DBD->tables method, patches
use DBIx::DBSchema::Column;
use DBIx::DBSchema::ForeignKey;
-our $VERSION = '0.46_03';
+our $VERSION = '0.47';
$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
our $DEBUG = 0;
use strict;
use DBD::Pg 1.41;
-our $VERSION = '0.20';
+our $VERSION = '0.21';
our %typemap = (
'BLOB' => 'BYTEA',
if ( $_->{atthasdef} ) {
my $attnum = $_->{attnum};
my $d_sth = $dbh->prepare(<<END) or die $dbh->errstr;
- SELECT substring(d.adsrc for 128) FROM pg_attrdef d, pg_class c
+ SELECT pg_get_expr(d.adbin, d.adrelid) FROM pg_attrdef d, pg_class c
WHERE c.relname = '$table' AND c.oid = d.adrelid AND d.adnum = $attnum
END
$d_sth->execute or die $d_sth->errstr;
+libdbix-dbschema-perl (0.47-1) UNRELEASED; urgency=medium
+
+ * new upstream release
+
+ -- Ivan Kohler <ivan-debian@420.am> Wed, 07 Sep 2022 16:30:37 -0700
+
libdbix-dbschema-perl (0.46~02-1) unstable; urgency=medium
* new upstream (test) release