# New Ticket Created by Colin Kuskie # Please include the string: [perl #44685] # in the subject line of all future correspondence about this issue. # <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=44685 >
In t/oo/*.t, change .Class to 'Class'
Index: t/oo/mro-c3.t =================================================================== --- t/oo/mro-c3.t (revision 20629) +++ t/oo/mro-c3.t (working copy) @@ -26,12 +26,12 @@ .sub 'test' :main .local pmc A, B - A = new .Class + A = new 'Class' $P0 = find_global 'testA' A.'add_method'("foo", $P0) A.'add_method'("bar", $P0) - B = new .Class + B = new 'Class' B.'add_parent'(A) $P0 = find_global 'testB' B.'add_method'("foo", $P0) @@ -56,19 +56,19 @@ .sub 'test' :main .local pmc A, B, C - A = new .Class + A = new 'Class' $P0 = find_global 'testA' A.'add_method'("foo", $P0) A.'add_method'("bar", $P0) A.'add_method'("baz", $P0) - B = new .Class + B = new 'Class' B.'add_parent'(A) $P0 = find_global 'testB' B.'add_method'("foo", $P0) B.'add_method'("bar", $P0) - C = new .Class + C = new 'Class' C.'add_parent'(B) $P0 = find_global 'testC' C.'add_method'("foo", $P0) @@ -98,18 +98,18 @@ .sub 'test' :main .local pmc A, B, C - A = new .Class + A = new 'Class' $P0 = find_global 'testA' A.'add_method'("foo", $P0) A.'add_method'("bar", $P0) A.'add_method'("baz", $P0) - B = new .Class + B = new 'Class' $P0 = find_global 'testB' B.'add_method'("foo", $P0) B.'add_method'("bar", $P0) - C = new .Class + C = new 'Class' C.'add_parent'(B) C.'add_parent'(A) $P0 = find_global 'testC' @@ -140,27 +140,27 @@ .sub 'test' :main .local pmc A, B, C, D - A = new .Class + A = new 'Class' $P0 = find_global 'testA' A.'add_method'("foo", $P0) A.'add_method'("bar", $P0) A.'add_method'("baz", $P0) A.'add_method'("wag", $P0) - B = new .Class + B = new 'Class' B.'add_parent'(A) $P0 = find_global 'testB' B.'add_method'("foo", $P0) B.'add_method'("bar", $P0) B.'add_method'("baz", $P0) - C = new .Class + C = new 'Class' C.'add_parent'(A) $P0 = find_global 'testC' C.'add_method'("foo", $P0) C.'add_method'("bar", $P0) - D = new .Class + D = new 'Class' D.'add_parent'(C) D.'add_parent'(B) $P0 = find_global 'testD'