fix Pg mapping for DOUBLE PRECISION type to avoid needless alter cols

diff --git a/Changes b/Changes
index c26100c..a775843 100644 (file)
--- a/Changes
+++ b/Changes
@@ -2,6 +2,7 @@ Revision history for Perl extension DBIx::DBSchema.
 
 0.40 unreleased
         - doc: sql_update_schema link to sql_add_column misspelled
+        - fix Pg mapping for DOUBLE PRECISION type to avoid needless alter cols
 
 0.39 Fri Mar 26 20:24:58 PDT 2010
         - mysql: TEXT->LONGTEXT

diff --git a/DBSchema.pm b/DBSchema.pm
index 9baa34e..e34582f 100644 (file)
--- a/DBSchema.pm
+++ b/DBSchema.pm
@@ -10,7 +10,7 @@ use DBIx::DBSchema::Column;
 use DBIx::DBSchema::ColGroup::Unique;
 use DBIx::DBSchema::ColGroup::Index;
 
-$VERSION = "0.40_01";
+$VERSION = "0.40_02";
 $VERSION = eval $VERSION; # modperlstyle: convert the string into a number
 
 $DEBUG = 0;

diff --git a/DBSchema/DBD/Pg.pm b/DBSchema/DBD/Pg.pm
index 30e7ecf..b54f1d1 100644 (file)
--- a/DBSchema/DBD/Pg.pm
+++ b/DBSchema/DBD/Pg.pm
@@ -5,7 +5,7 @@ use vars qw($VERSION @ISA %typemap);
 use DBD::Pg 1.32;
 use DBIx::DBSchema::DBD;
 
-$VERSION = '0.17';
+$VERSION = '0.18';
 @ISA = qw(DBIx::DBSchema::DBD);
 
 die "DBD::Pg version 1.32 or 1.41 (or later) required--".
@@ -235,15 +235,16 @@ sub alter_column_callback {
   my $name = $old_column->name;
 
   my %canonical = (
-    'SMALLINT'  => 'INT2',
-    'INT'       => 'INT4',
-    'BIGINT'    => 'INT8',
-    'SERIAL'    => 'INT4',
-    'BIGSERIAL' => 'INT8',
-    'DECIMAL'   => 'NUMERIC',
-    'REAL'      => 'FLOAT4',
-    'BLOB'      => 'BYTEA',
-    'TIMESTAMP' => 'TIMESTAMPTZ',
+    'SMALLINT'         => 'INT2',
+    'INT'              => 'INT4',
+    'BIGINT'           => 'INT8',
+    'SERIAL'           => 'INT4',
+    'BIGSERIAL'        => 'INT8',
+    'DECIMAL'          => 'NUMERIC',
+    'REAL'             => 'FLOAT4',
+    'DOUBLE PRECISION' => 'FLOAT8',
+    'BLOB'             => 'BYTEA',
+    'TIMESTAMP'        => 'TIMESTAMPTZ',
   );
   foreach ($old_column, $new_column) {
     $_->type($canonical{uc($_->type)}) if $canonical{uc($_->type)};

diff --git a/debian/changelog b/debian/changelog
index 8d872d4..303b74a 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+libdbix-dbschema-perl (0.40~02-1) UNRELEASED; urgency=low
+
+  * new upstream (test) release
+
+ -- Ivan Kohler <ivan-debian@420.am>  Sun, 02 Jan 2011 12:33:51 -0800
+
 libdbix-dbschema-perl (0.38~01-1) unstable; urgency=low
 
   * new upstream (test) release