[perl #130369] [REGRESSION] Large negative exponents no longer cause a numeric overflow exception (2**-999999)

[via RT]

# New Ticket Created by  Aleks-Daniel Jakimenko-Aleksejev 
# Please include the string:  [perl #130369]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=130369 >


Code:
say 2**-999999



Result (2015.12 .. 2016.11):
Numeric overflow
  in block <unit> at /tmp/GYbmLKwQ4g line 1

Actually thrown at:
in block <unit> at /tmp/GYbmLKwQ4g line 1



Result (HEAD):
0



I am not sure what is the best solution here, but I guess having an exception 
if the value is being zeroed is a good idea.