diff --git a/src/classes/Capture.pir b/src/classes/Capture.pir index d6e5a56e276..94db7528645 100644 --- a/src/classes/Capture.pir +++ b/src/classes/Capture.pir @@ -60,7 +60,7 @@ Build a capture from its argument(s). =cut .namespace [] -.sub "prefix:\\" +.sub 'prefix:\' .param pmc arg $I0 = isa arg, 'Perl6Scalar' if $I0 goto have_ref diff --git a/src/classes/Object.pir b/src/classes/Object.pir index 02aea995146..9e6b24d7057 100644 --- a/src/classes/Object.pir +++ b/src/classes/Object.pir @@ -770,7 +770,7 @@ methods. push_eh check_error (pos_res :slurpy, named_res :named :slurpy) = cur_meth(self, pos_args :flat, named_args :named :flat) pop_eh - cap = 'prefix:\\'(pos_res :flat, named_res :flat :named) + cap = 'prefix:\'(pos_res :flat, named_res :flat :named) push result_list, cap goto it_loop is_multi: @@ -780,7 +780,7 @@ methods. unless multi_it goto it_loop cur_meth = shift multi_it (pos_res :slurpy, named_res :named :slurpy) = cur_meth(self, pos_args :flat, named_args :named :flat) - cap = 'prefix:\\'(pos_res :flat, named_res :flat :named) + cap = 'prefix:\'(pos_res :flat, named_res :flat :named) push result_list, cap goto multi_it_loop check_error: