# New Ticket Created by Colin Kuskie # Please include the string: [perl #44679] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=44679 >
Change .Class to 'Class' in dynpmc/*.t
Index: t/dynpmc/dynlexpad.t =================================================================== --- t/dynpmc/dynlexpad.t (revision 20629) +++ t/dynpmc/dynlexpad.t (working copy) @@ -56,7 +56,7 @@ foo() .end .sub foo :lex - $P1 = new .Integer + $P1 = new 'Integer' $P1 = 13013 store_lex 'a', $P1 print "ok 1\n" @@ -77,7 +77,7 @@ foo() .end .sub foo :lex - $P1 = new .Integer + $P1 = new 'Integer' $P1 = 13013 store_lex 'a', $P1 $P2 = find_lex 'a' @@ -107,7 +107,7 @@ foo() .end .sub foo :lex - $P1 = new .Integer + $P1 = new 'Integer' $P1 = 13013 store_lex 'a', $P1 $P2 = find_lex 'a' @@ -134,7 +134,7 @@ .local pmc pad, interp interp = getinterp pad = interp["lexpad"; 2] - $P2 = new .Integer + $P2 = new 'Integer' $P2 = 55 pad['b'] = $P2 .return() @@ -181,15 +181,15 @@ .end .sub foo .lex 'a', $P0 # statix lexical - $P0 = new .String + $P0 = new 'String' $P0 = "ok 1\n" $P1 = find_lex 'a' print $P1 - $P2 = new .String + $P2 = new 'String' $P2 = "ok 2\n" store_lex 'a', $P2 print $P0 # sic! - $P3 = new .String + $P3 = new 'String' $P3 = "ok 3\n" store_lex 'b', $P3 # and a dynamic one $P4 = find_lex 'b'