summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorPhilip Newton <pne@cpan.org>2001-07-03 19:03:34 +0200
committerJarkko Hietaniemi <jhi@iki.fi>2001-07-03 16:03:31 +0000
commit8a74992ed71b6b6b6734e5f9f3ec0eb501aefc50 (patch)
treeb86d83df032333ce90a9309f8116aa0321cb0e6d /pp_hot.c
parent05a0c3f0843bdb65158d6dd0823e64a9bf2c120c (diff)
downloadperl-8a74992ed71b6b6b6734e5f9f3ec0eb501aefc50.tar.gz
Re: [PATCH @11016] Fixes compile errors in four files
Message-ID: <3B41FAE6.29564.660E117@localhost> p4raw-id: //depot/perl@11122
Diffstat (limited to 'pp_hot.c')
-rw-r--r--pp_hot.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/pp_hot.c b/pp_hot.c
index 296ed44b8a..ee6c28ae5c 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2651,7 +2651,7 @@ try_autoload:
}
DEBUG_S(if (CvDEPTH(cv) != 0)
PerlIO_printf(Perl_debug_log, "depth %ld != 0\n",
- CvDEPTH(cv)));;
+ CvDEPTH(cv)));
SAVEDESTRUCTOR_X(unset_cvowner, (void*) cv);
}
}
@@ -3116,7 +3116,7 @@ unset_cvowner(pTHXo_ void *cvarg)
MUTEX_LOCK(CvMUTEXP(cv));
DEBUG_S(if (CvDEPTH(cv) != 0)
PerlIO_printf(Perl_debug_log, "depth %ld != 0\n",
- CvDEPTH(cv)));;
+ CvDEPTH(cv)));
assert(thr == CvOWNER(cv));
CvOWNER(cv) = 0;
MUTEX_UNLOCK(CvMUTEXP(cv));