From dfd5fc6f14a70be025f982c85b47df17f362e3c6 Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Wed, 15 Apr 2009 20:44:23 +0000
Subject: [PATCH] DBD-SQLite: avoid tweak if dbname is ':memory:'

---
 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 63820c6..be722fb 100644
--- a/lib/DBD/SQLite.pm
+++ b/lib/DBD/SQLite.pm
@@ -65,7 +65,7 @@ sub connect {
 
     # To avoid unicode and long file name problems on Windows,
     # convert to the shortname if the file (or parent directory) exists.
-    if ( $^O eq 'MSWin32' ) {
+    if ( $^O eq 'MSWin32' and $real ne ':memory:') {
         require Win32;
         require File::Basename;
         my ($file, $dir, $suffix) = File::Basename::fileparse($real);