summaryrefslogtreecommitdiff
path: root/av.c
diff options
context:
space:
mode:
authorCharles Bailey <bailey@newman.upenn.edu>2000-02-09 09:29:06 +0000
committerbailey <bailey@newman.upenn.edu>2000-02-09 09:29:06 +0000
commit32da55abecac94dc6a18cbca78eb8321199543f1 (patch)
tree390fd784f9a50e98480a55eebff4c6572fca6702 /av.c
parentcb50131aab68ac6dda048612c6e853b8cb08701e (diff)
downloadperl-32da55abecac94dc6a18cbca78eb8321199543f1.tar.gz
Minor fixes to assuage picky compilers (unsigned comparisons and
alias rules lead to compilation warnings) p4raw-id: //depot/vmsperl@5050
Diffstat (limited to 'av.c')
-rw-r--r--av.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/av.c b/av.c
index 29afaff7ee..dffabe48fd 100644
--- a/av.c
+++ b/av.c
@@ -393,7 +393,7 @@ Perl_av_clear(pTHX_ register AV *av)
SV** ary;
#ifdef DEBUGGING
- if (SvREFCNT(av) <= 0 && ckWARN_d(WARN_DEBUGGING)) {
+ if (SvREFCNT(av) == 0 && ckWARN_d(WARN_DEBUGGING)) {
Perl_warner(aTHX_ WARN_DEBUGGING, "Attempt to clear deleted array");
}
#endif