[perl #59544] open(null) kills parrot

[via RT]

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


(I'd expect an exception to be raised instead.)


PIR code:

..sub 'foo' :main
    $S0 = null
    $P0 = open $S0, '<'
..end

output:
src/string.c:2106: failed assertion 's'
Backtrace - Obtained 15 stack frames (max trace depth is 32).
  (unknown)
    Parrot_confess
      string_to_cstring
        Parrot_open_p_s_sc
          (unknown)
            (unknown)
              (unknown)
                (unknown)
                  Parrot_runops_fromc_args
                    Parrot_runcode
                      (unknown)
                        imcc_run
                          (unknown)
                            __libc_start_main
                              (unknown)
Aborted