speed up this check

karenetheridge · karenetheridge · commit 795b2867d299 · 2025-02-28T15:35:40.000-08:00
diff --git a/lib/JSON/Schema/Modern.pm b/lib/JSON/Schema/Modern.pm
@@ -290,7 +290,7 @@ sub traverse ($self, $schema_reference, $config_override = {}) {
     croak 'initial_schema_uri fragment must be a json pointer' if $uri_path !~ m{^/};
 
     croak 'traversed_schema_path does not match initial_schema_uri path fragment'
-      if $initial_path !~ m{\Q$uri_path\E$};
+      if substr($initial_path, -length($uri_path)) ne $uri_path;
   }
 
   my $state = {

Original file line number	Diff line number	Diff line change
`@@ -290,7 +290,7 @@ sub traverse ($self, $schema_reference, $config_override = {}) {`
`290`	`290`	`croak 'initial_schema_uri fragment must be a json pointer' if $uri_path !~ m{^/};`
`291`	`291`
`292`	`292`	`croak 'traversed_schema_path does not match initial_schema_uri path fragment'`
`293`		`- if $initial_path !~ m{\Q$uri_path\E$};`
	`293`	`+ if substr($initial_path, -length($uri_path)) ne $uri_path;`
`294`	`294`	`}`
`295`	`295`
`296`	`296`	`my $state = {`