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

[via RT]

# 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