X-Git-Url: https://git.octo.it/?p=rrdtool.git;a=blobdiff_plain;f=bindings%2Fperl-shared%2FRRDs.xs;fp=bindings%2Fperl-shared%2FRRDs.xs;h=830a779d5f0f090c395cfeed3c0a445aa0b8b4f2;hp=252018f53b2942d2f25583375fe7b086c54c310a;hb=b0a526a0bcba4a883645db7c228f905c3906be77;hpb=58e33c38668afe88b2e45c9aca017b46a92537ca

diff --git a/bindings/perl-shared/RRDs.xs b/bindings/perl-shared/RRDs.xs
index 252018f..830a779 100644
--- a/bindings/perl-shared/RRDs.xs
+++ b/bindings/perl-shared/RRDs.xs
@@ -81,7 +81,7 @@ extern "C" {
 		    switch (data->type) { \
 		    case RD_I_VAL: \
 			if (isnan(data->value.u_val)) \
-			    hvs(&PL_sv_undef); \
+			    hvs(newSV(0)); \
 			else \
 			    hvs(newSVnv(data->value.u_val)); \
 			break; \
@@ -276,7 +276,7 @@ rrd_fetch(...)
 		for (i = start+step; i <= end; i += step){
 			line = newAV();
 			for (ii = 0; ii < ds_cnt; ii++){
- 			  av_push(line,(isnan(*datai) ? &PL_sv_undef : newSVnv(*datai)));
+ 			  av_push(line,(isnan(*datai) ? newSV(0) : newSVnv(*datai)));
 			  datai++;
 			}
 			av_push(retar,newRV_noinc((SV*)line));
@@ -356,7 +356,7 @@ rrd_xport(...)
 		for (i = start+step; i <= end; i += step){
 			line = newAV();
 			for (ii = 0; ii < col_cnt; ii++){
- 			  av_push(line,(isnan(*ptr) ? &PL_sv_undef : newSVnv(*ptr)));
+ 			  av_push(line,(isnan(*ptr) ? newSV(0) : newSVnv(*ptr)));
 			  ptr++;
 			}
 			av_push(retar,newRV_noinc((SV*)line));