[perl #39844] [BUG] Parrot doesn't do args checking for a sub without params

[Matt Diephouse]

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

I expect this to die with a "too many args" error, but it doesn't --
it prints "ok":

.sub main :main
test("foo", "bar")
end
.end

.sub test
print "ok\n"
.return()
.end

--
Matt Diephouse