Another .substr(0,1) -> .starts-with

rakudo · Jan 13, 2016 · 3259ba3 · 3259ba3
1 parent 919a3ed
commit 3259ba3
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/src/core/Parameter.pm b/src/core/Parameter.pm
@@ -270,9 +270,7 @@ my class Parameter { # declared in BOOTSTRAP
                and nqp::isnull($!sub_signature) {
                     $name = '\\';
             }
-            if $name.substr(0,1) ne '\\' {
-                $rest ~= ' is raw';
-            }
+            $rest ~= ' is raw' unless $name.starts-with('\\');
         }
         unless nqp::isnull($!sub_signature) {
             my $sig = $!sub_signature.perl();