1
0
Fork 0
mirror of https://github.com/DBD-SQLite/DBD-SQLite synced 2025-06-07 22:28:47 -04:00

DBD-SQLite: avoid tweak if dbname is ':memory:'

This commit is contained in:
Kenichi Ishigaki 2009-04-15 20:44:23 +00:00
parent 497126b058
commit dfd5fc6f14

View file

@ -65,7 +65,7 @@ sub connect {
# To avoid unicode and long file name problems on Windows, # To avoid unicode and long file name problems on Windows,
# convert to the shortname if the file (or parent directory) exists. # 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 Win32;
require File::Basename; require File::Basename;
my ($file, $dir, $suffix) = File::Basename::fileparse($real); my ($file, $dir, $suffix) = File::Basename::fileparse($real);