[perl #32549] [BUG] 1 - 2 is an exception

[Will Coleda]

# New Ticket Created by Will Coleda
# Please include the string: [perl #32549]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org:80/rt3/Ticket/Display.html?id=32549 >

The PIR:

.sub main @MAIN

$P1 = new PerlInt
$P1 = 1

$P2 = new Integer
$P2 = 2

$P3 = new Integer
$P3 = $P1 - $P2

print $P3
print "\n"

end
.end

Generates an exception: "no bigint lib loaded"

If you reverse the subtraction (and do $P2 - $P1 instead), no exception is thrown.

Similar behavior occurs if you replace "Integer" with "TclInt" (and the appropriate find_type).

[Leopold Toetsch]

Will Coleda <parrotbug...@parrotcode.org> wrote:

[ snip ]

> Generates an exception: "no bigint lib loaded"

Oops. Too much cut'n'paste. Fixed.

leo