Actually, it wouldn't generate imbalanced tags - the final if has additional logic to balance the last row - but it does trigger EmbPerl's imbalanced tag detection anyway. Either generate one row per loop iteratiom or turn off EmbPerl's table parsing. Since that loop will probably run faster unrolled once (so there's only one if check in it), and your table should have balanced rows anyway (put the if check on the *contents* of the second <TD>, rather than eliminating the whole element), I strongly recommend the former approach.
----- Original Message ----- From: "Williams, David G. (HQ-JF000)[INDYNE INC]" [david.g.willi...@nasa.gov] Sent: 10/08/2009 03:41 PM EST To: George Piskorsky <geo...@piskorsky.com>; "embperl@perl.apache.org" <embperl@perl.apache.org> Subject: RE: 9999: Error (no description) Unstructured forward jump It is complaining because your code would create unbalanced <TR></TR> tags. Why are you writing <TR> when the modulus is 0 but writing </TR> if modulus is 1? I think you should redesign your code. -----Original Message----- From: George Piskorsky [mailto:geo...@piskorsky.com] Sent: Thursday, October 08, 2009 4:16 PM To: embperl@perl.apache.org Subject: ERR: 9999: Error (no description) Unstructured forward jump Hello! I have Apache2.2 with mod_perl and Embperl2.3. The following script does not work: <!DOCTYPE html PUBLIC -//W3C//DTD HTML 4.0 Transitional//EN> <HTML> <HEAD> <TITLE>Test</TITLE> </HEAD> <BODY> [- @array = (1,2,3,4,5,6,7,8); $num = scalar @array; $i = 0; -] <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=10> [$ while ($i < $num) $] [$ if (($i % 2) == 0) $] <TR> [$ endif $] <TD> [+ $array[$i] +] </TD> [$ if (($i % 2 == 1) || ($num - 1 == $i)) $] </TR> [$ endif $] [- $i++ -] [$ endwhile $] </TABLE> </BODY> </HTML> Apache give empty page and in error-log of apache I see the following string: [746]ERR: 9999: Error (no description) Unstructured forward jump, /usr/local/www/apache22/data/test1.epl Line 14 -> Line 18 Can anybody help me? -- George Piskorsky --------------------------------------------------------------------- To unsubscribe, e-mail: embperl-unsubscr...@perl.apache.org For additional commands, e-mail: embperl-h...@perl.apache.org The following line is added for your protection and will be used for analysis if this message is reported as spam: (Raytheon Analysis: IP=140.211.11.3; e-from=embperl-return-8771-eg=raytheon....@perl.apache.org; from=david.g.willi...@nasa.gov; date=Oct 8, 2009 8:43:22 PM; subject=RE: 9999: Error (no description) Unstructured forward jump) --------------------------------------------------------------------- To unsubscribe, e-mail: embperl-unsubscr...@perl.apache.org For additional commands, e-mail: embperl-h...@perl.apache.org
