# 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

Reply via email to