Ah, right. Thanks Dean. (I've used File::Spec to do the same as it's
already used by the test script.)
Tim.
On Wed, Oct 25, 2006 at 01:41:31PM -0700, Dean Arnold wrote:
> 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__;
> }
