respect sign in "-:16<AB>".Numeric

rakudo · Aug 17, 2011 · c75ed52 · c75ed52
1 parent 22d4296
commit c75ed52
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/Str.pm b/src/core/Str.pm
@@ -169,7 +169,7 @@ my class Str does Stringy {
             fail "malformed radix number, expecting '<' after the base"
                 unless nqp::iseq_s(nqp::substr($str, $pos, 1), '<');
             $pos = nqp::add_i($pos, 1);
-            $parse := nqp::radix($radix, $str, $pos, 0);
+            $parse := nqp::radix($radix, $str, $pos, $neg);
             $pos = nqp::atpos($parse, 2);
             fail "malformed radix number" if nqp::iseq_i($pos, -1);
             fail "malformed radix number, expecting '>' after the body"