[perl #22617] IMCC duplicate labels in different subs cause wrong branch

[Clinton A. Pierce]

# New Ticket Created by  "Clinton A. Pierce" 
# Please include the string:  [perl #22617]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=22617 >


The following code:

.sub _realmain
         bsr FOO
         call _function
         end

FOO:    print "In main's FOO"
         ret
.end
.sub _function
         bsr FOO
         ret
FOO:    print "in the function's FOO"
         ret
.end

Causes "In main's FOO" to be printed twice.  While an understandable 
behavior, probably not the correct one.  Language in parsing.pod indicates 
that perhaps the labels should be munged by IMCC.   If this *is* the 
correct behavior, then a "duplicate label" error of some kind should be 
emitted by IMCC.