added typemap foo and default values

[DBIx-DataSource.git] / DataSource / Pg.pm

diff --git a/DataSource/Pg.pm b/DataSource/Pg.pm
index 4956785..f8b3453 100644 (file)
--- 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";
   }