Commits

Anonymous committed a3187db

Added more comments.

Comments (0)

Files changed (1)

perl5/ext-embed-internals/docbook/examples/0007-iterate-over-array/XSTest/lib/XSTest.xs

                     continue;
                 }
 
+                /* If *elem is a floating-point number. */
                 if (SvNOK(*elem))
                 {
+                    /* SvNV() returns the floating-point
+                     * value of the element. */
                     ret += SvNV(*elem);
                 }
+                /* If *elem is an integer. */
                 else if (SvIOK(*elem))
                 {
+                    /* Add its integral value (IV) */
                     ret += SvIV(*elem);
                 }
             }