[perl #53746] bug with index() matching beyond end of string
authorDave Mitchell <davem@fdisolutions.com>
Fri, 30 May 2008 21:41:05 +0000 (21:41 +0000)
committerDave Mitchell <davem@fdisolutions.com>
Fri, 30 May 2008 21:41:05 +0000 (21:41 +0000)
commit8ba22ff48d546c5622ef74aee96415810fcbf7a0
tree645245e71b86a0d2b86af852cda34e5dba003fc1
parent10489e41959ba56eedd511a8c320dfec04d8f588
[perl #53746] bug with index() matching beyond end of string
An off-by-one error meant that index($str,...)
was effectively being executed as index("$str\0", ...).
Probably introduced by change #26511.
p4raw-link: @26511 on //depot/perl: 4c8626beeba549aaf3f327729c56a599716ee8b7

p4raw-id: //depot/perl@33952
t/op/index.t
util.c