Author: allison
Date: Sat Oct 6 12:00:58 2007
New Revision: 21928
Modified:
branches/pdd15oo/t/compilers/tge/grammar.t
Log:
[pdd15oo] Obfuscate the POD string, so it won't be picked up by POD-checker
distro tests.
Modified: branches/pdd15oo/t/compilers/tge/grammar.t
==============================================================================
--- branches/pdd15oo/t/compilers/tge/grammar.t (original)
+++ branches/pdd15oo/t/compilers/tge/grammar.t Sat Oct 6 12:00:58 2007
@@ -54,18 +54,16 @@
say $S1
# Add a POD comment and recompile
- grammar = $P1.'compile'(<<'GRAMMAR')
-=head NAME
-
- TreeMin2
-
-=cut
+ .local string source
+ source = "=head NAME\n\n TreeMin2\n\n=cut\n\n"
+ source .= <<'GRAMMAR'
grammar TreeMin2 is TGE::Grammar;
transform min (Leaf) :language('PIR') {
$P1 = getattribute node, "value"
.return ($P1)
}
GRAMMAR
+ grammar = $P1.'compile'(source)
$S1 = typeof grammar
say $S1
.end
