-----BEGIN PGP SIGNED MESSAGE-----
Moin,
On 24-Mar-02 Craig A. Berry tried to scribble about:
> All of the Math::BigInt tests failed with today's snapshot. The
> provisional patch at the end of this message gets some things
> working. The only problem it really fixes was that
> File::Spec->catdir produces -- surprise -- a directory name and not a
> file name. I'm seeing quite a few remaining failures and I hope to
> post more details tomorrow. I added a warning that narrows some
> problems down a bit. This was with a -des configure on OpenVMS Alpha
> 7.3.
>
> Here's the current scorecard:
>
> [-.lib.math.bigint.t]bare_mbf...........FAILED on test 1602
> [-.lib.math.bigint.t]bare_mbi...........ok
> [-.lib.math.bigint.t]bigfltpm...........FAILED on test 1602
> [-.lib.math.bigint.t]bigintc............ok
> [-.lib.math.bigint.t]bigintpm...........ok
> [-.lib.math.bigint.t]calling............FAILED on test 142
> [-.lib.math.bigint.t]config.............ok
> [-.lib.math.bigint.t]constant...........FAILED on test 8
> [-.lib.math.bigint.t]downgrade..........FAILED on test 12
> [-.lib.math.bigint.t]inf_nan............FAILED on test 337
> [-.lib.math.bigint.t]isa................FAILED on test 8
> [-.lib.math.bigint.t]mbimbf.............FAILED on test 455
> [-.lib.math.bigint.t]mbi_rand...........ok
> [-.lib.math.bigint.t]require............ok
> [-.lib.math.bigint.t]sub_mbf............FAILED on test 1608
> [-.lib.math.bigint.t]sub_mbi............ok
> [-.lib.math.bigint.t]sub_mif............FAILED on test 439
> [-.lib.math.bigint.t]upgrade............FAILED on test 1
> [-.lib.math.bigint.t]use................ok
> [-.lib.math.bigint.t]use_lib1...........FAILED on test 3
> [-.lib.math.bigint.t]use_lib2...........FAILED on test 3
> [-.lib.math.bigint.t]use_lib3...........FAILED on test 3
> [-.lib.math.bigint.t]use_lib4...........FAILED on test 3
Ouch.
> One failure looks like this:
>
> $ perl [-.lib.math.bigint.t]bare_mbf.t
># INC = [-.lib.math.bigint.t] ../lib perl_root:[lib.VMS_AXP.5_7_3]
># perl_root:[lib] perl_root:[lib.site_perl.VMS_AXP] perl_root:[lib.
> site_perl] /perl_root/lib/site_perl .
> 1..1601
> Unhandled case BareCalc at ../lib/Math/BigFloat.pm line 1697.
> not ok 1
># Test 1 got: 'Math::BigInt::Calc' (../lib/math/bigint/t/bigfltpm.inc at
># line 3)
># Expected: 'Math::BigInt::BareCalc'
> ok 2
> ok 3
> . . .
>
> Here's the patch. Perhaps Tels should comment; I doubt this is really
> ready to be applied yet.
>
> --- lib/Math/BigFloat.pm;-0 Sat Mar 23 15:02:55 2002
> +++ lib/Math/BigFloat.pm Sat Mar 23 22:49:03 2002
> @@ -1670,32 +1670,36 @@
> {
> # this causes upgrading
> $upgrade = $_[$i+1]; # or undef to disable
> - my $s = 2; $s = 1 if @a-$j < 2; # avoid "can not modify
> non-existant..."
> + my $s = 2; $s = 1 if @a-$j < 2; # avoid "cannot modify
> non-existent..."
Currently I see no difference here. ah, a spelling in the comment! That
will reduce failures ;)
I'll take a dose of coffee first and comment later..
> + else
> + {
> + warn "Unhandled case $_[$i]"
> + }
Good idea.
> }
> my @parts = split /::/, $MBI; # Math::BigInt =>
> Math BigInt
> my $file = pop @parts; $file .= '.pm'; # BigInt => BigInt.pm
> - $file = File::Spec->catdir (@parts, $file);
> + $file = File::Spec->catfile (@parts, $file);
Looks good. Funny it worked on my system at all.
- --
perl -MDev::Bollocks -e'print Dev::Bollocks->rand(),"\n"'
collaboratively administrate strategic content
http://bloodgate.com/perl My current Perl projects
PGP key available on http://bloodgate.com/tels.asc or via email
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: When cryptography is outlawed, bayl bhgynjf jvyy unir cevinpl.
iQEVAwUBPJ2OzXcLPEOTuEwVAQGr2Qf/VRxRrT1t1yRcfdswx5uIdibK82WWS2sH
86ld6L7m+6O0YGaz/58jf7X62fS6SSj7PM6Ry8tdCOCC6rl1dmxdaPCz3IVRVTZh
XNUuAeuHVXfWR0BTbXWiManUrFBQvnFilsDrW+Xqkw/SB/tn6zS0twHqXG8RzigJ
Rn0/DbKASw+fQDsOhuJEPdzgC3BIfHKWSWM3LpeIiO9zfSyz2FyUMopjVYZbzVKl
+B9L8jEP/YUou9QTM0tGwhwBZtGa0wOrJpZrs9USZ30+AvMBpT8oci9o4V8Tw0wj
dpcVLHxymzwQqvRoflRenMaKrtNWq0nUKLxtxwNEEpFTggJ9qg+ieg==
=p22h
-----END PGP SIGNATURE-----
