[perl #43048] imcc constant folding div by zero bug

[via RT]

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


... or so I think:

This works:

.sub zero_check

   push_eh one
     $N0 = 0.0
     $N1 = 3 / $N0
   clear_eh

one:
   print "ok\n"
.end


This doesn't:

.sub zero_check

   push_eh one
     $N1 = 3 / 0.0
   clear_eh

one:
   print "ok\n"
.end

Guessing that imcc is doing constant folding without the guards that  
the ops use.

mj41++ for prompting the test.

--
Will "Coke" Coleda
[EMAIL PROTECTED]