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

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;