X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=sv.c;h=4e75506bafd853fe7c92c4efbcad579d969f78de;hb=6d5d7abf5a8b730704df06d4203cb1dba3ba4523;hp=c2c1cc03d073c8d2dfb56dbfd010e8fc4d52e5e3;hpb=4411f3b60960504e67715e05eb0ed3192bfff8fc;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/sv.c b/sv.c
index c2c1cc0..4e75506 100644
--- a/sv.c
+++ b/sv.c
@@ -4369,7 +4369,7 @@ Perl_sv_clear(pTHX_ register SV *sv)
 
     if (SvOBJECT(sv)) {
 	if (PL_defstash) {		/* Still have a symbol table? */
-	    djSP;
+	    dSP;
 	    CV* destructor;
 	    SV tmpref;