X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pod%2Fperlxstut.pod;h=f06e16632690d2f4a074dbc1c272272b2c3992ff;hb=231c9faeb17b45588bbde0b49d0d32f25d2a1286;hp=347b46e4f54add6dba788a5e5cfa0e34eeb97d75;hpb=4b19af017623bfa3bb72bb164598a517f586e0d3;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pod/perlxstut.pod b/pod/perlxstut.pod
index 347b46e..f06e166 100644
--- a/pod/perlxstut.pod
+++ b/pod/perlxstut.pod
@@ -682,7 +682,8 @@ the meaning of these elements, pay attention to the line which reads
 
 Anything before this line is plain C code which describes which headers
 to include, and defines some convenience functions.  No translations are
-performed on this part, it goes into the generated output C file as is.
+performed on this part, apart from having embedded POD documentation
+skipped over (see L<perlpod>) it goes into the generated output C file as is.
 
 Anything after this line is the description of XSUB functions.
 These descriptions are translated by B<xsubpp> into C code which
@@ -1093,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);
@@ -1109,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);