summaryrefslogtreecommitdiff
path: root/doop.c
diff options
context:
space:
mode:
authorAndy Lester <andy@petdance.com>2005-06-16 04:13:42 -0500
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-06-16 13:55:18 +0000
commita6e20a404b42cad25eb97280fa2bcacffda64cd6 (patch)
treebecab207af03fe0a26c7ec2809551b75b0302163 /doop.c
parent0dea61d9463d40d400a2f349f672ec0d9dcba752 (diff)
downloadperl-a6e20a404b42cad25eb97280fa2bcacffda64cd6.tar.gz
Removing /*SUPPRESS xxx*/
Message-ID: <20050616141342.GA22188@petdance.com> p4raw-id: //depot/perl@24871
Diffstat (limited to 'doop.c')
-rw-r--r--doop.c3
1 files changed, 0 insertions, 3 deletions
diff --git a/doop.c b/doop.c
index 73ccdcdf96..8d23a3148e 100644
--- a/doop.c
+++ b/doop.c
@@ -954,7 +954,6 @@ Perl_do_chop(pTHX_ register SV *astr, register SV *sv)
HV* hv = (HV*)sv;
HE* entry;
(void)hv_iterinit(hv);
- /*SUPPRESS 560*/
while ((entry = hv_iternext(hv)))
do_chop(astr,hv_iterval(hv,entry));
return;
@@ -1031,7 +1030,6 @@ Perl_do_chomp(pTHX_ register SV *sv)
HV* hv = (HV*)sv;
HE* entry;
(void)hv_iterinit(hv);
- /*SUPPRESS 560*/
while ((entry = hv_iternext(hv)))
count += do_chomp(hv_iterval(hv,entry));
return count;
@@ -1379,7 +1377,6 @@ Perl_do_kv(pTHX)
i = HvKEYS(keys);
else {
i = 0;
- /*SUPPRESS 560*/
while (hv_iternext(keys)) i++;
}
PUSHi( i );