[perl #46137] [TODO] The text in an instruction after ':' is a label isn't it? (PDB_hasinstruction)

[via RT]

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


 In src/debug.c:PDB_hasinstruction() has the todo item:

else if (*c == ':') {
/* this is a label. XXX right? */

We just need to check here that the text after a ':' denotes a label.
This function could also do with some more expressive variable names than
'h' and 'c'.