diff options
| author | Michael Stevens <mstevens@etla.org> | 2001-03-15 20:01:12 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-16 02:53:32 +0000 |
| commit | cea6626fc5e04af2c1d079dd4d3784eb2c21174b (patch) | |
| tree | 90eadfaeaab2755554409cb8b6cc868e4054fcef /pod/perlxstut.pod | |
| parent | 8722d079bea855032e83d28746a234953bd00d85 (diff) | |
| download | perl-cea6626fc5e04af2c1d079dd4d3784eb2c21174b.tar.gz | |
the uncontroversial doc patches
Message-ID: <20010315200112.A7636@firedrake.org>
p4raw-id: //depot/perl@9175
Diffstat (limited to 'pod/perlxstut.pod')
| -rw-r--r-- | pod/perlxstut.pod | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/pod/perlxstut.pod b/pod/perlxstut.pod index 5b7ed6da34..f06e166326 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); |