0.38

[DBIx-DBSchema.git] / DBSchema / DBD / Pg.pm

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;
       }
 
     }