Further simplify native binding check

We only need the $expected variable if there is something that was expected.
rakudo · Jun 12, 2022 · fc149e2 · fc149e2
1 parent 750487c
commit fc149e2
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/Perl6/bootstrap.c/BOOTSTRAP.nqp b/src/Perl6/bootstrap.c/BOOTSTRAP.nqp
@@ -221,7 +221,7 @@ my class Binder {
         my int $is_rw          := $flags +& $SIG_ELEM_IS_RW;
         if $is_rw && $desired_native {
             if $got_native {
-                my $expected := $desired_native == $SIG_ELEM_NATIVE_INT_VALUE
+                if $desired_native == $SIG_ELEM_NATIVE_INT_VALUE
                   && !nqp::iscont_i($oval)
                   ?? "int"
                   !! $desired_native == $SIG_ELEM_NATIVE_UINT_VALUE
@@ -232,8 +232,7 @@ my class Binder {
                       ?? "num"
                       !! !nqp::iscont_s($oval)  # SIG_ELEM_NATIVE_STR_VALUE
                         ?? "str"
-                        !! "";
-                if $expected {
+                        !! 0 -> $expected {
                     if nqp::defined($error) {
                         $error[0] := "Expected a modifiable native $expected argument for '$varname'";
                     }