Minor changes needed for GLR.

colomon · Sep 2, 2015 · f089372 · f089372
1 parent ce433a7
commit f089372
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/lib/Math/Polynomial.pm b/lib/Math/Polynomial.pm
@@ -46,8 +46,8 @@ class Math::Polynomial {
         my $max =   $a.coefficients.elems
                 max $b.coefficients.elems;
 
-        all((    $a.coefficients, 0 xx *
-             Z== $b.coefficients, 0 xx * )[^$max]);
+        all((    |$a.coefficients, |(0 xx *)
+             Z== |$b.coefficients, |(0 xx *) )[^$max]);
     }
     multi sub infix:<!=>(Math::Polynomial $a, Math::Polynomial $b) is export(:DEFAULT) {
         !($a == $b);
@@ -56,9 +56,8 @@ class Math::Polynomial {
     multi sub infix:<+>(Math::Polynomial $a, Math::Polynomial $b) is export(:DEFAULT) {
         my $max =   $a.coefficients.elems
                 max $b.coefficients.elems;
-
-        $a.new: (    $a.coefficients, 0 xx *
-                  Z+ $b.coefficients, 0 xx * )[^$max];
+        $a.new: (    |$a.coefficients, |(0 xx *)
+                  Z+ |$b.coefficients, |(0 xx *) )[^$max];
     }
 
     multi sub infix:<+>(Math::Polynomial $a, $b) is export(:DEFAULT) {