This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Missing semi-colon
authorBrendan O'Dea <bod@debian.org>
Sun, 15 Feb 2004 23:27:17 +0000 (10:27 +1100)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Mon, 16 Feb 2004 11:27:34 +0000 (11:27 +0000)
From: "Brendan O'Dea" <bod@debian.org>
Message-ID: <20040215122717.GA26812@londo.c47.org>

p4raw-id: //depot/perl@22309

ext/MIME/Base64/Base64.xs

index 0e1817e..14c8bea 100644 (file)
@@ -341,7 +341,7 @@ encode_qp(sv,...)
            }
            else {
                /* output escaped char (with line breaks) */
            }
            else {
                /* output escaped char (with line breaks) */
-               assert(p < end)
+               assert(p < end);
                if (eol_len && linelen > MAX_LINE - 4) {
                    sv_catpvn(RETVAL, "=", 1);
                    sv_catpvn(RETVAL, eol, eol_len);
                if (eol_len && linelen > MAX_LINE - 4) {
                    sv_catpvn(RETVAL, "=", 1);
                    sv_catpvn(RETVAL, eol, eol_len);