Skip to content

Instantly share code, notes, and snippets.

@jnthn
Created January 18, 2013 20:31
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jnthn/a113bd54654a940a51df to your computer and use it in GitHub Desktop.
Save jnthn/a113bd54654a940a51df to your computer and use it in GitHub Desktop.
diff --git a/src/core/Exception.pm b/src/core/Exception.pm
index 42f8c63..851dc94 100644
--- a/src/core/Exception.pm
+++ b/src/core/Exception.pm
@@ -213,7 +213,7 @@ do {
$_() for pir::perl6ize_type__PP(@*END_PHASERS);
}
if $! {
- pir::perl6_based_rethrow__0PP(nqp::getattr($!, Exception, '$!ex'), $ex);
+ pir::perl6_based_rethrow__0PP(nqp::getattr(nqp::p6decont($!), Exception, '$!ex'), $ex);
}
}
@@ -1043,7 +1043,7 @@ my class X::Inheritance::UnknownParent is Exception {
method message {
my $message := $.child ~ ' cannot inherit from ' ~ $.parent ~ ' because it is unknown.';
if +@.suggestions > 1 {
- $message := $message ~ "\nDid you mean one of these?\n " ~ nqp::join("\n ", @.suggestions);
+ $message := $message ~ "\nDid you mean one of these?\n " ~ @.suggestions.join("\n ");
} elsif +@.suggestions == 1 {
$message := $message ~ "\nDid you mean " ~ @.suggestions[0];
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment