[perl #40816] open opcode creates file if it doesn't exist

[via RT]

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


Not sure if this is a bug or not, but I noticed that the open opcode
creates its argument if the desired file doesn't exist.  Here's a test
case:

.sub main :main
  .param pmc args
  .local pmc file
  $S0 = shift args # script name
  $S0 = shift args # first argument
  file = open $S0
  end
.end

Run as "parrot test.pir <filename>".  If filename doesn't exist, it
will be created.

BTW, this is my first PIR script, so please be gentle :)

Regards,
Jonathan Rockway