length($') isn't

"foo" =~ /^./; print length $';
     __END__
     i

An ev0l typo that crept in via the 317th subversion. :-)

p5p-msgid: 199704070730.DAA07310@aatma.engin.umich.edu

diff --git a/mg.c b/mg.c
index f1dc828..b6d5afb 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -307,7 +307,7 @@ MAGIC *mg;
            if (rx->subend && (s = rx->endp[0])) {
                i = rx->subend - s;
                if (i >= 0)
-                   return 0;
+                   return i;
            }
        }
        return 0;