benign prep for ~~ going chained -> structural

Just a couple places that will need parens in the future.
rakudo · Jul 24, 2015 · cf09f8b · cf09f8b
1 parent 280e942
commit cf09f8b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/core/Deprecations.pm b/src/core/Deprecations.pm
@@ -58,7 +58,7 @@ sub DEPRECATED($alternative,$from?,$removed?,:$up = 1,:$what,:$file,:$line) {
     my Version $vremoved;
     if $from {
         $vfrom = Version.new($from);
-        return if $version cmp $vfrom ~~ Less | Same; # can be better?
+        return if ($version cmp $vfrom) ~~ Less | Same; # can be better?
     }
     $vremoved = Version.new($removed) if $removed;
 

diff --git a/src/core/Str.pm b/src/core/Str.pm
@@ -1719,7 +1719,7 @@ multi sub UNBASE(Int:D $base, Str:D $str) {
         } else {
             ":{$base}<$str>".Numeric;
         }
-    } elsif $ch eq ':' && substr($str, 1, 1) ~~ '1'..'9' {
+    } elsif $ch eq ':' && substr($str, 1, 1) ~~ ('1'..'9') {
         $str.Numeric;
     } else {
         ":{$base}<$str>".Numeric;