0.38

diff --git a/Changes b/Changes
index 740da93..a6fb073 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,9 @@
 Revision history for Perl extension DBIx::DBSchema.
 
+0.38 unreleased
+        - Bump version number for ->quoted_default availability & default
+          reverse-engineering changes
+
 0.37 unreleased
         - Patch from Slavin Rezic <srezic@cpan.org> to prevent quoting around
           numeric defaults in Pg.

diff --git a/DBSchema.pm b/DBSchema.pm
index a84246e..643e174 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.37_04";
+$VERSION = "0.38_01";
 $VERSION = eval $VERSION; # modperlstyle: convert the string into a number
 
 $DEBUG = 0;
@@ -371,7 +371,12 @@ sub pretty_print {
                          "'". $table->column($_)->type. "', ".
                          "'". $table->column($_)->null. "', ". 
                          "'". $table->column($_)->length. "', ".
-                         "'". $table->column($_)->default. "', ".
+
+                         ( ref($table->column($_)->default)
+                             ? "\\'". ${ $table->column($_)->default }. "'"
+                             : "'". $table->column($_)->default. "'"
+                         ).', '.
+
                          "'". $table->column($_)->local. "',\n"
                        } $table->columns
           ).

diff --git a/DBSchema/DBD/Pg.pm b/DBSchema/DBD/Pg.pm
index 26adde4..30e7ecf 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.16';
+$VERSION = '0.17';
 @ISA = qw(DBIx::DBSchema::DBD);
 
 die "DBD::Pg version 1.32 or 1.41 (or later) required--".
@@ -85,7 +85,8 @@ END
           $default = \$value;
         }
       } elsif ( $default =~ /^[a-z]/i ) { #sloppy, but it'll do
-        $default = \$default;
+        my $value = $default;
+        $default = \$value;
       }
 
     }

diff --git a/debian/changelog b/debian/changelog
index 5663de7..8d872d4 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+libdbix-dbschema-perl (0.38~01-1) unstable; urgency=low
+
+  * new upstream (test) release
+
+ -- Ivan Kohler <ivan-debian@420.am>  Sat, 09 Jan 2010 02:03:36 -0800
+
 libdbix-dbschema-perl (0.37~04-1) unstable; urgency=low
 
   * new upstream (test) release