This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp_pack.c: Add comment
authorKarl Williamson <khw@cpan.org>
Mon, 24 Nov 2014 21:57:02 +0000 (14:57 -0700)
committerKarl Williamson <khw@cpan.org>
Mon, 24 Nov 2014 22:11:52 +0000 (15:11 -0700)
pp_pack.c

index 40db6ef..fa1b113 100644 (file)
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -1792,7 +1792,7 @@ S_unpack_rec(pTHX_ tempsym_t* symptr, const char *s, const char *strbeg, const c
            if (!checksum)
                XPUSHs(sv);
            break;
-       }
+       } /* End of switch */
 
        if (checksum) {
            if (strchr("fFdD", TYPE_NO_MODIFIERS(datumtype)) ||