Re: Announce: DBI-1.53 release candidate 1

[Dean Arnold]

Tim Bunce wrote:

Also, FYI: on AS 5.8.6, WinXP:

t\40profile..............ok 24/45
#   Failed test in t\40profile.t at line 240.
#     Structures begin differing at:

t\40profile..............NOK 32# $got->{t\40profile.t} = Does not exist

#     $expected->{t\40profile.t} = HASH(0x1b7b4e0)

All else passed OK.

Looks like a windows / vs \ issue. Could you look into it for me as I
don't use windows at all. It's probably trivial.

Tim.

Yep. Here's my hacked patch:

--- 40profile.t Wed Oct 25 04:12:31 2006
+++ 40profile.t.new     Wed Oct 25 13:32:41 2006
@@ -229,7 +229,13 @@
 $dbh->{Profile}->{Data} = undef;

 my ($file, $line1, $line2) = (__FILE__, undef, undef);
+
+if ($^O eq 'MSWin32') {
+       $file =~ s:.*\\::;
+}
+else {
 $file =~ s:.*/::;
+}
 sub a_sub {
     $sth = $dbh->prepare("select name from ."); $line2 = __LINE__;
 }