escape regex special chars in guess_prefix. Resolves #411 (#412)

coolmaksat · web-flow · commit 99be3b32763b · 2025-12-12T22:20:24.000+11:00
diff --git a/bin/snippy-core b/bin/snippy-core
@@ -153,7 +153,7 @@ sub guess_prefix {
   for my $try ("$dir/$in_prefix.$ext", <$dir/*.$ext>) {
     #msg("Checking if file exists: $try");
     if (-r $try) {
-      $try =~ m"^$dir/(.*?).$ext";
+      $try =~ m"^\Q$dir\E/(.*?).$ext";
       return $1;
     }
   }

Original file line number	Diff line number	Diff line change
`@@ -153,7 +153,7 @@ sub guess_prefix {`
`153`	`153`	`for my $try ("$dir/$in_prefix.$ext", <$dir/*.$ext>) {`
`154`	`154`	`#msg("Checking if file exists: $try");`
`155`	`155`	`if (-r $try) {`
`156`		`- $try =~ m"^$dir/(.*?).$ext";`
	`156`	`+ $try =~ m"^\Q$dir\E/(.*?).$ext";`
`157`	`157`	`return $1;`
`158`	`158`	`}`
`159`	`159`	`}`