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

---
 Changes          | 3 +++
 DataSource.pm    | 2 +-
 DataSource/Pg.pm | 3 ++-
 MANIFEST         | 1 +
 MANIFEST.SKIP    | 1 +
 5 files changed, 8 insertions(+), 2 deletions(-)
 create mode 100644 MANIFEST.SKIP

diff --git a/Changes b/Changes
index ac2bf29..6d54de7 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl extension DBIx::DataSource
 
+0.03  Sat Oct  7 08:58:28 2000
+        - Pg driver rejects illegal uppercase database names
+
 0.02  Mon Sep 25 03:54:55 2000
         - change name from DBIx::Database, oops!
 
diff --git a/DataSource.pm b/DataSource.pm
index 87fef47..0923059 100644
--- a/DataSource.pm
+++ b/DataSource.pm
@@ -7,7 +7,7 @@ use Exporter;
 @ISA = qw(Exporter);
 @EXPORT_OK = qw( create_database drop_database );
 
-$VERSION = '0.02';
+$VERSION = '0.03';
 
 =head1 NAME
 
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";
   }
diff --git a/MANIFEST b/MANIFEST
index 50116ff..73af5f2 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -1,6 +1,7 @@
 Changes
 DataSource.pm
 MANIFEST
+MANIFEST.SKIP
 Makefile.PL
 test.pl
 README
diff --git a/MANIFEST.SKIP b/MANIFEST.SKIP
new file mode 100644
index 0000000..ae335e7
--- /dev/null
+++ b/MANIFEST.SKIP
@@ -0,0 +1 @@
+CVS/
-- 
2.11.0