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

[via RT]

# 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).