From bc89563e529cbdad8f66a2669c5358300b78b0e0 Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Wed, 15 Apr 2009 19:42:19 +0000
Subject: [PATCH] DBD-SQLite: suffix doesn't always exist

---
 lib/DBD/SQLite.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/DBD/SQLite.pm b/lib/DBD/SQLite.pm
index f2a8db0..053c895 100644
--- a/lib/DBD/SQLite.pm
+++ b/lib/DBD/SQLite.pm
@@ -75,7 +75,7 @@ sub connect {
         } elsif ( -d $dir ) {
             # We are creating a new file.
             # Does the directory it's in at least exist?
-            $real = Win32::GetShortPathName($dir) . $file . $suffix;
+            $real = join '', grep { defined } Win32::GetShortPathName($dir), $file, $suffix;
         } else {
             # SQLite can't do mkpath anyway.
             # So let it go through as it and fail.