X-Git-Url: https://git.octo.it/?p=collectd.git;a=blobdiff_plain;f=src%2Fperl.c;h=1bb0b3330d24d96fd2a913df3bc42ca062cb4d8a;hp=671d1f3fa41b1353c35f8fae01d64117aa017f27;hb=ba1015262cdc912f9d01ab5a76037e65033c54c5;hpb=6f30c750cc555fb016db827cd5ff6e1e1c2cc87e

diff --git a/src/perl.c b/src/perl.c
index 671d1f3f..1bb0b333 100644
--- a/src/perl.c
+++ b/src/perl.c
@@ -706,10 +706,8 @@ static int value_list2hv(pTHX_ value_list_t *vl, data_set_t *ds, HV *hash) {
 
 static int notification_meta2av(pTHX_ notification_meta_t *meta, AV *array) {
   int meta_num = 0;
-
-  while (meta) {
+  for (notification_meta_t *m = meta; m != NULL; m = m->next) {
     ++meta_num;
-    meta = meta->next;
   }
 
   av_extend(array, meta_num);