Change $#+

	Message-Id: <199811280651.BAA18095@monk.mps.ohio-state.edu>

p4raw-id: //depot/perl@2373

1 files changed, 7 insertions, 2 deletions

diff --git a/mg.c b/mg.c
index e960c9354a..ba90227a70 100644
--- a/mg.c
+++ b/mg.c
@@ -326,8 +326,13 @@ magic_regdata_cnt(SV *sv, MAGIC *mg)
     register REGEXP *rx;
     char *t;
 
-    if (PL_curpm && (rx = PL_curpm->op_pmregexp))
-	return rx->lastparen;
+    if (PL_curpm && (rx = PL_curpm->op_pmregexp)) {
+	if (mg->mg_obj)		/* @+ */
+	    return rx->nparens;
+	else			/* @- */
+	    return rx->lastparen;
+    }
+    
     return (U32)-1;
 }