Change 13339 by jhi@alpha on 2001/11/28 13:37:31
Test cases for the first half of #13338.
Affected files ...
.... //depot/perl/t/lib/h2ph.h#4 edit
.... //depot/perl/t/lib/h2ph.pht#7 edit
Differences ...
==== //depot/perl/t/lib/h2ph.h#4 (text) ====
Index: perl/t/lib/h2ph.h
--- perl/t/lib/h2ph.h.~1~ Wed Nov 28 06:45:05 2001
+++ perl/t/lib/h2ph.h Wed Nov 28 06:45:05 2001
@@ -98,4 +98,20 @@
??= define SOMETHING_ELSE_TRIGRAPHIC_8 "??>" /* | ??>| }| */
??=endif
+/* comments (that look like string) inside enums... */
+
+enum {
+ /* foo;
+ can't
+ */
+ };
+
+enum flimflam {
+ flim,
+ /* foo;
+ can't
+ */
+ flam
+ } flamflim;
+
#endif /* _H2PH_H_ */
==== //depot/perl/t/lib/h2ph.pht#7 (text) ====
Index: perl/t/lib/h2ph.pht
--- perl/t/lib/h2ph.pht.~1~ Wed Nov 28 06:45:05 2001
+++ perl/t/lib/h2ph.pht Wed Nov 28 06:45:05 2001
@@ -79,5 +79,7 @@
eval 'sub SOMETHING_ELSE_TRIGRAPHIC_7 () {"#";}' unless
defined(&SOMETHING_ELSE_TRIGRAPHIC_7);
eval 'sub SOMETHING_ELSE_TRIGRAPHIC_8 () {"}";}' unless
defined(&SOMETHING_ELSE_TRIGRAPHIC_8);
}
+ eval("sub flim () { 0; }") unless defined(&flim);
+ eval("sub flam () { 1; }") unless defined(&flam);
}
1;
End of Patch.
