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 (file)
--- 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);
     }
 }