From 35de4c849beda4f1a66f8431d614f43440707199 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 7 Oct 2000 16:53:51 +0000
Subject: added typemap foo and default values

---
 DataSource/Pg.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'DataSource')

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";
   }
-- 
cgit v1.2.1