set keyword in state before any errors are generated for that keyword

Author: karenetheridge

lib/JSON/Schema/Draft201909.pm

@@ -121,9 +121,10 @@ sub _eval {
   ) {
     next if not exists $schema->{$keyword};
 
+    $state->{keyword} = $keyword;
     my $method = '_eval_keyword_'.($keyword =~ s/^\$//r);
     abort($state, 'unsupported keyword "%s"', $keyword) if not $self->can($method);
-    $result = 0 if not $self->$method($data, $schema, +{ %$state, keyword => $keyword });
+    $result = 0 if not $self->$method($data, $schema, $state);
 
     return 0 if not $result and $state->{short_circuit};
   }

t/unsupported-keyword.t

@@ -14,15 +14,21 @@ foreach my $keyword (qw($id $anchor $recursiveRef $recursiveAnchor $vocabulary))
   subtest 'keyword: '.$keyword => sub {
     is(
       exception {
-        my $result = $js->evaluate('hello', { $keyword => 'something' });
+        my $result = $js->evaluate(
+          'hello',
+          {
+            '$schema' => 'https://json-schema.org/draft/2019-09/schema',
+            $keyword => 'something',
+          },
+        );
         cmp_deeply(
           $result->TO_JSON,
           {
             valid => bool(0),
             errors => [
               {
                 instanceLocation => '',
-                keywordLocation => '',
+                keywordLocation => "/$keyword",
                 error => 'EXCEPTION: unsupported keyword "'.$keyword.'"',
               },
             ],
@@ -31,7 +37,7 @@ foreach my $keyword (qw($id $anchor $recursiveRef $recursiveAnchor $vocabulary))
         );
       },
       undef,
-      'did not get no exception',
+      'got an exception',
     );
   };
 }