# New Ticket Created by Colin Kuskie
# Please include the string: [perl #44677]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=44677 >
Change .Class to 'Class' in t/compilers/tge
Index: t/compilers/tge/basic.t
===================================================================
--- t/compilers/tge/basic.t (revision 20629)
+++ t/compilers/tge/basic.t (working copy)
@@ -55,18 +55,18 @@
tree = new 'TGE::Tree'
.local int id
- $P0 = new .Integer
+ $P0 = new 'Integer'
id = tree.'_lookup_id'($P0)
print id
print "\n"
- $P1 = new .Integer
+ $P1 = new 'Integer'
id = tree.'_lookup_id'($P1)
print id
print "\n"
id = tree.'_lookup_id'($P0)
print id
print "\n"
- $P2 = new .Integer
+ $P2 = new 'Integer'
id = tree.'_lookup_id'($P2)
print id
print "\n"
Index: t/compilers/tge/grammar.t
===================================================================
--- t/compilers/tge/grammar.t (revision 20629)
+++ t/compilers/tge/grammar.t (working copy)
@@ -293,7 +293,7 @@
.local object testing
- testing = new .Hash
+ testing = new 'Hash'
# Compile a grammar from the source
.local pmc grammar