X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fperlxstut.pod;h=f06e16632690d2f4a074dbc1c272272b2c3992ff;hb=231c9faeb17b45588bbde0b49d0d32f25d2a1286;hp=5b7ed6da34c79b72f8dcb393b863b39464430582;hpb=0e06870bf080a38cda51c06c6612359afc2334e1;p=p5sagit%2Fp5-mst-13.2.git diff --git a/pod/perlxstut.pod b/pod/perlxstut.pod index 5b7ed6d..f06e166 100644 --- a/pod/perlxstut.pod +++ b/pod/perlxstut.pod @@ -1094,15 +1094,15 @@ Mytest.xs: HV * rh; STRLEN l; char * fn = SvPV(*av_fetch((AV *)SvRV(paths), n, 0), l); - + i = statfs(fn, &buf); if (i != 0) { av_push(results, newSVnv(errno)); continue; } - + rh = (HV *)sv_2mortal((SV *)newHV()); - + hv_store(rh, "f_bavail", 8, newSVnv(buf.f_bavail), 0); hv_store(rh, "f_bfree", 7, newSVnv(buf.f_bfree), 0); hv_store(rh, "f_blocks", 8, newSVnv(buf.f_blocks), 0); @@ -1110,7 +1110,7 @@ Mytest.xs: hv_store(rh, "f_ffree", 7, newSVnv(buf.f_ffree), 0); hv_store(rh, "f_files", 7, newSVnv(buf.f_files), 0); hv_store(rh, "f_type", 6, newSVnv(buf.f_type), 0); - + av_push(results, newRV((SV *)rh)); } RETVAL = newRV((SV *)results);