Change 28404 broke the construct s/foo/<<BAR/e. So, try to be more
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 20 Jun 2006 17:22:15 +0000 (17:22 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 20 Jun 2006 17:22:15 +0000 (17:22 +0000)
commit9badc3612459020624c762b543ab7dd82718f170
tree6edcde947ccb900797f972f1328f291e35b35bf3
parent1387f30c3a0e2c0d15467578b3cb17d441a9efff
Change 28404 broke the construct s/foo/<<BAR/e. So, try to be more
clever. If the right hand side of s///e contains a #, then maybe
it's a comment, so add a \n after it. Obviously, this is fast, but
won't cover all possible cases.

p4raw-id: //depot/perl@28409
toke.c