From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 11 Jul 2000 18:12:51 +0000 (+0000)
Subject: Typo in #6341.
X-Git-Tag: perl-5.7.0~611^2~15
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/2dcc0aea3275343bd7e02ac2917b895225e037af?hp=0df67ae6657908368da0106eaece7afb31cc07d7

Typo in #6341.

p4raw-id: //depot/cfgperl@6356
---

diff --git a/pp_hot.c b/pp_hot.c
index 6df5420..742d0da 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2267,7 +2267,7 @@ S_get_db_sub(pTHX_ SV **svp, CV *cv)
 		    && (gv = (GV*)*svp) ))) {
 	    /* Use GV from the stack as a fallback. */
 	    /* GV is potentially non-unique, or contain different CV. */
-	    SV *tmp = newRV((SV*)cv));
+	    SV *tmp = newRV((SV*)cv);
 	    sv_setsv(dbsv, tmp);
 	    SvREFCNT_dec(tmp);
 	}