Improve GH #1226 workaround suggestion, Zoffix++

rakudo · Nov 2, 2017 · 6dab5aa · 6dab5aa
1 parent 0973b30
commit 6dab5aa
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/src/Perl6/Metamodel/BUILDPLAN.nqp b/src/Perl6/Metamodel/BUILDPLAN.nqp
@@ -50,11 +50,9 @@ role Perl6::Metamodel::BUILDPLAN {
                               workaround =>
                                 "Create/Adapt TWEAK method in class "
                                   ~ $obj.HOW.name($obj)
-                                  ~ ", e.g:\n    method TWEAK() \{ "
+                                  ~ ", e.g:\n    method TWEAK(:"
                                   ~ $_.name
-                                  ~ " = (initial values) unless %_<"
-                                  ~ nqp::substr($_.name,2)
-                                  ~ ">:exists }"
+                                  ~ ' = (initial values)) { }'
                             ).throw;
                         }
                     }