added typemap foo and default values

1 files changed, 2 insertions, 1 deletions

diff --git a/DataSource/Pg.pm b/DataSource/Pg.pm
index 4956785..f8b3453 100644
--- a/DataSource/Pg.pm
+++ b/DataSource/Pg.pm
@@ -5,7 +5,7 @@ use vars qw($VERSION @ISA);
 use DBIx::DataSource::Driver;
 @ISA = qw( DBIx::DataSource::Driver );
 
-$VERSION = '0.01';
+$VERSION = '0.02';
 
 =head1 NAME
 
@@ -46,6 +46,7 @@ sub parse_dsn {
   my $database;
   if ( $dsn =~ s/(^|[;:])dbname=([^=:;]+)([;:]|$)/$1dbname=template1$3/ ) {
     $database = $2;
+    die "Pg database names must be lowercase\n" if $database ne lc($database);
   } else {
     die "can't parse data source: $prefix$dsn";
   }