Preserve warning message "0"

rakudo · Dec 7, 2014 · dfcf9fc · dfcf9fc
1 parent 8a9791d
commit dfcf9fc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -209,7 +209,7 @@ do {
         if ($type == nqp::const::CONTROL_WARN) {
             my Mu $err := nqp::getstderr();
             my $msg = nqp::p6box_s(nqp::getmessage($ex));
-            nqp::printfh($err, $msg ?? "$msg" !! "Warning");
+            nqp::printfh($err, $msg.chars ?? "$msg" !! "Warning");
 #?if parrot
             nqp::printfh($err, Backtrace.new($ex.backtrace, 0).nice(:oneline));
 #?endif