Front page | perl.perl5.porters |
Postings from June 2009
On Sun Aug 24 07:58:08 2003, nicholas wrote:
> I think that the appended patch to t/op/int.t will fail on netbsd
> until
> we get this problem fixed, and pass everywhere else. However, it's a
> lot
> less obscure a failure than something in the bowels of pack.
>
> On Sat, Aug 23, 2003 at 10:25:37PM +0200, alian wrote:
>
> > I really don't know what is it. Only one thing: this is something
> > between @19201 and @19254. Period of configure/perl.h update for
> modfl & co.
>
> Could you try the attached patch, which should back out the change to
> pp.c
> only, and see if that fixes it.
>
> Nicholas Clark
>
> --- t/op/int.t.orig 2002-07-20 00:50:10.000000000 +0100
> +++ t/op/int.t 2003-08-24 15:30:13.000000000 +0100
> @@ -5,7 +5,7 @@ BEGIN {
> @INC = '../lib';
> }
>
> -print "1..14\n";
> +print "1..16\n";
>
> # compile time evaluation
>
> @@ -96,3 +96,20 @@ if ($y == 4745162525730) {
> print "not ok 14 # int(279964589018079/59) is $y, not
> 4745162525730\n"
> }
>
> +$x = 2**53;
> +$y = int ($x);
> +
> +if ($x == $y) {
> + print "ok 15\n"
> +} else {
> + print "not ok 15 # int($x) is $y, not $x\n"
> +}
> +
> +$x = -$x;
> +$y = int ($x);
> +
> +if ($x == $y) {
> + print "ok 16\n"
> +} else {
> + print "not ok 16 # int($x) is $y, not $x\n"
> +}
Six years without a response from the original poster. This bug is stalled.
Steve
Thread Previous
|
Thread Next