From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 3 Dec 2004 17:02:43 +0000 (+0000)
Subject: Fix a typo in an assert(). It helps to compile with -DDEBUGGING
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ef97f5b30528a5e4790713361751c0a1bbd94c48;p=p5sagit%2Fp5-mst-13.2.git

Fix a typo in an assert(). It helps to compile with -DDEBUGGING

p4raw-id: //depot/perl@23603
---

diff --git a/perl.c b/perl.c
index d0a1401..e10fe78 100644
--- a/perl.c
+++ b/perl.c
@@ -4413,7 +4413,7 @@ S_incpush(pTHX_ char *p, int addsubdirs, int addoldvers, int usesep)
 	av_push(GvAVn(PL_incgv), libdir);
     }
     if (subdir) {
-	assert (SvREFCNT(subdr) == 1);
+	assert (SvREFCNT(subdir) == 1);
 	SvREFCNT_dec(subdir);
     }
 }