One less native integer increment in is-sha1

lizmat · May 13, 2024 · 4d801e6 · 4d801e6
1 parent ed66a48
commit 4d801e6
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/lib/String/Utils.rakumod b/lib/String/Utils.rakumod
@@ -147,7 +147,7 @@ my sub chomp-needle(str $haystack, str $needle) {
 }
 
 my sub is-sha1(str $needle) {
-    my int $i = -1;
+    my int $i;
     if nqp::chars($needle) == 40 {
         my $map := BEGIN {
             my int @map;
@@ -156,9 +156,9 @@ my sub is-sha1(str $needle) {
         }
 
         nqp::while(
-          nqp::isle_i(++$i,40)
+          nqp::isle_i($i,40)
             && nqp::atpos_i($map,nqp::ordat($needle,$i)),
-          nqp::null
+          ++$i
         )
     }