# Require all parts of DSN after ';' to be NAME=value pairs
# 
# To apply this patch:
# STEP 1: Chdir to the source directory.
# STEP 2: Run the 'applypatch' program with this patch file as input.
#
# If you do not have 'applypatch', it is part of the 'makepatch' package
# that you can fetch from the Comprehensive Perl Archive Network:
# http://www.perl.com/CPAN/authors/Johan_Vromans/makepatch-x.y.tar.gz
# In the above URL, 'x' should be 2 or higher.
#
# To apply this patch without the use of 'applypatch':
# STEP 1: Chdir to the source directory.
# STEP 2: Run the 'patch' program with this file as input.
#
#### End of Preamble ####

#### Patch data follows ####
diff -up 'DBD-Oracle-1.14/Oracle.pm' 'DBD-Oracle-1.14-new/Oracle.pm'
Index: ./DBD-Oracle-1.14/Oracle.pm
--- ./DBD-Oracle-1.14/Oracle.pm	Tue Mar 25 05:58:00 2003
+++ ./DBD-Oracle-1.14-new/Oracle.pm	Wed Jun 25 06:45:25 2003
@@ -185,12 +185,17 @@ my $ORACLE_ENV  = ($^O eq 'VMS') ? 'ORA_
 	    $dbname =~ s/^\s+//;
 	    $dbname =~ s/\s+$//;
 	    my @dbname = map {
-		($n,$v) = split /\s*=\s*/, $_; (uc($n), $v)
+		($n,$v) = split /\s*=\s*/, $_;
+                return $drh->DBI::set_err(-1,
+                    "All parts of '$dbname' must be NAME=value pairs")
+                    unless defined $v && $n;
+                (uc($n), $v)
 	    } split /\s*;\s*/, $dbname;
 	    my %dbname = ( PROTOCOL => 'tcp', @dbname );
 	    my $sid = delete $dbname{SID};
 	    return $drh->DBI::set_err(-1,
-		    "Can't connect using this syntax without specifying a HOST and a SID")
+		"Can't connect using this syntax without specifying a " .
+                "HOST and a SID")
 		unless $sid and $dbname{HOST};
 	    my @addrs;
 	    push @addrs, "$n=$v" while ( ($n,$v) = each %dbname );
#### End of Patch data ####

#### ApplyPatch data follows ####
# Data version        : 1.0
# Date generated      : Wed Jun 25 06:46:08 2003
# Generated by        : makepatch 2.00_09*
# Recurse directories : Yes
# Excluded files      : (\A|/).*\~\Z
#                       (\A|/).*\.a\Z
#                       (\A|/).*\.bak\Z
#                       (\A|/).*\.BAK\Z
#                       (\A|/).*\.elc\Z
#                       (\A|/).*\.exe\Z
#                       (\A|/).*\.gz\Z
#                       (\A|/).*\.ln\Z
#                       (\A|/).*\.o\Z
#                       (\A|/).*\.obj\Z
#                       (\A|/).*\.olb\Z
#                       (\A|/).*\.old\Z
#                       (\A|/).*\.orig\Z
#                       (\A|/).*\.rej\Z
#                       (\A|/).*\.so\Z
#                       (\A|/).*\.Z\Z
#                       (\A|/)\.del\-.*\Z
#                       (\A|/)\.make\.state\Z
#                       (\A|/)\.nse_depinfo\Z
#                       (\A|/)core\Z
#                       (\A|/)tags\Z
#                       (\A|/)TAGS\Z
#                       (\A|/)\.\#.*\Z
#                       (\A|/)\#.*\Z
#                       (\A|/)_\$.*\Z
#                       (\A|/).*\$\Z
#                       (\A|/)CVS\Z
#                       (\A|/)CVS\.adm\Z
#                       (\A|/)cvslog\..*\Z
#                       (\A|/)\,.*\Z
#                       (\A|/).*\,v\Z
#                       (\A|/)RCS\Z
#                       (\A|/)RCSLOG\Z
#                       (\A|/)p\..*\Z
#                       (\A|/)s\..*\Z
#                       (\A|/)SCCS\Z
# p 'DBD-Oracle-1.14/Oracle.pm' 57114 1056548725 0100664
#### End of ApplyPatch data ####

#### End of Patch kit [created: Wed Jun 25 06:46:08 2003] ####
#### Patch checksum: 72 2886 37441 ####
#### Checksum: 90 3567 28330 ####