From e7a0fd26cdf7ddfff22f9c8606f2e5fc105d4b7b Mon Sep 17 00:00:00 2001
From: Dmitry Karasik <dmitry@karasik.eu.org>
Date: Wed, 18 Sep 2024 13:34:51 +0200
Subject: [PATCH] backslash fix

---
 Makefile.PL | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Makefile.PL b/Makefile.PL
index 3f21bb86..d0ea8884 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -2443,7 +2443,7 @@ sub command_postinstall
 		s/\//\\/g for values %vars;
 	}
 
-	(my $bin = $opt{bin}) =~ s#"#\\"#g; # q() not robust to whacky dirnames
+	(my $bin = $opt{bin}) =~ s[(["\\])][\\$1]g; # q() not robust to whacky dirnames
 	print $fh2 <<HEADER;
 # This file was automatically generated.
 package Prima::Config;