[perl #56508] [BUG] :lexid interferes with string constants

[Patrick R. Michaud (via RT)]

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


In r28897:

   $ cat x.pir
   .sub 'main'
       'foo'()
       'bar'()
   .end
   
   .sub 'foo'
       new $P0, "String"
       assign $P0, "abc"
       say $P0
   .end
   
   .sub 'bar'  :lexid("abc")
       new $P0, "String"
       assign $P0, "abc"
       say $P0
   .end
   
   $ ./parrot x.pir
   abc
   abc"
   $

Subs 'foo' and 'bar' are identical except for the :lexid
attribute, yet they produce different output results.

Pm