added typemap foo and default values

diff --git a/Changes b/Changes
index ac2bf29..6d54de7 100644 (file)
--- 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 (file)
--- 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 (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";
   }

diff --git a/MANIFEST b/MANIFEST
index 50116ff..73af5f2 100644 (file)
--- 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 (file)
index 0000000..ae335e7
--- /dev/null
+++ b/MANIFEST.SKIP
@@ -0,0 +1 @@
+CVS/