[svn:dbi] r14373 - dbi/trunk/t

[REHSACK]

Author: REHSACK
Date: Fri Sep  3 09:32:56 2010
New Revision: 14373

Modified:
   dbi/trunk/t/51dbm_file.t

Log:
work around a SQL::Statement or tr/// issue


Modified: dbi/trunk/t/51dbm_file.t
==============================================================================
--- dbi/trunk/t/51dbm_file.t    (original)
+++ dbi/trunk/t/51dbm_file.t    Fri Sep  3 09:32:56 2010
@@ -55,7 +55,9 @@
 my $r = $dbh->selectall_arrayref(q/select * from Fred/);
 ok(@$r == 2);
 
-   $r = $dbh->selectall_arrayref(sprintf(q|select * from "%s"|, 
File::Spec->catfile($dir, 'fred')));
+my $abs_tbl = File::Spec->catfile($dir, 'fred');
+   $abs_tbl =~ s|\\|/|g; # work around SQL::Statement bug
+   $r = $dbh->selectall_arrayref(sprintf(q|select * from "%s"|, $abs_tbl));
 ok(@$r == 2);
 
 ok($dbh->do(q/drop table if exists FRED/));