[perl #126598] With chomping active, we lose a last empty line

[via RT]

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


$ 6 spurt("bar","\n"); dd open("bar").get
Str $var = Str   # should be ""

$ 6 'spurt("bar","\n"); dd open("bar",:!chomp).get'
Str $var = "\n"