[99probs] P12-unobe.pl post-glr quoting behaviour

Author: stmuk

categories/99-problems/P12-unobe.pl

@@ -19,7 +19,7 @@ =head1 Example
 
 =end pod
 
-my @l = ([<4 a>],'b',[<2 c>],[<2 a>], 'd', [<4 e>]);
+my @l = ([('4', 'a')],'b',[('2', 'c')],[('2','a')], 'd', [('4','e')]);
 sub prob12 (@in) {
     my @out;
     for 0 ... (@in.end) -> $x {

t/categories/99-problems.t

@@ -184,8 +184,8 @@ sub expected-output {
     END
 
     %expected-output{"P12-unobe.pl"} = q:to/END/;
-    [["4", "a"], "b", ["2", "c"], ["2", "a"], "d", ["4", "e"]]<>
-    ["a", "a", "a", "a", "b", "c", "c", "a", "a", "d", "e", "e", "e", "e"]<>
+    [["4", "a"], "b", ["2", "c"], ["2", "a"], "d", ["4", "e"]]
+    ["a", "a", "a", "a", "b", "c", "c", "a", "a", "d", "e", "e", "e", "e"]
     END
 
     %expected-output{"P13-rhebus.pl"} = q:to/END/;