diff options
Diffstat (limited to 'DataSource/Pg.pm')
| -rw-r--r-- | DataSource/Pg.pm | 3 |
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"; } |