Re: Re: qr//x and \# weirdness (AS 5.8?)

[BrowserUk]

I don't have bleedperl, but something like this (simulated!) diff might work? (I scrunched it a bit).

@ 2992 sv.c (5.8.0)
    if (PMf_EXTENDED & re->reganch)
    {
    char *endptr = re->precomp + re->prelen;
    while (endptr >= re->precomp)
    {
        char c = *(endptr--);
        if (c == '\n')
        break; /* don't need another */
        if (c == '#') {
+           int n =0;
+        while( endptr >= re->precomp && 
+              c = *(endptr--) && 
+              c == '\' )  n++;
+        /* if we've an odd number of backslashes the #
+              is escaped, so don't need the newline */               
+                         
+        if ( n & 1) break; 
        /* we end while in a comment, so we
           need a newline */
        mg->mg_len++; /* save space for it */
        need_newline = 1; /* note to add it */
        }
    }
    }

---

Examine what is said, not who speaks.

"Efficiency is intelligent laziness." -David Dunham
"When I'm working on a problem, I never think about beauty. I think only how to solve the problem. But when I have finished, if the solution is not beautiful, I know it is wrong." -Richard Buckminster Fuller