From 001ad4e054cc501178c7216407f3eeee07f02474 Mon Sep 17 00:00:00 2001
From: Paul Moore <Paul.Moore@uk.origin-it.com>
Date: Wed, 10 Nov 1999 22:52:02 +0000
Subject: [PATCH] DynaLoader_pm.PL patch (backslashes in strings)

To: <perl5-porters@perl.org>
Message-ID: <LPBBIIMJKJMPNOGHGLLCMEBFCAAA.gustav@morpheus.demon.co.uk>

p4raw-id: //depot/cfgperl@4568
---
 ext/DynaLoader/DynaLoader_pm.PL | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ext/DynaLoader/DynaLoader_pm.PL b/ext/DynaLoader/DynaLoader_pm.PL
index e20ab42..a02f5bf 100644
--- a/ext/DynaLoader/DynaLoader_pm.PL
+++ b/ext/DynaLoader/DynaLoader_pm.PL
@@ -3,7 +3,7 @@ use Config;
 
 sub to_string {
     my ($value) = @_;
-    $value =~ s/\\/\\\\'/g;
+    $value =~ s/\\/\\\\/g;
     $value =~ s/'/\\'/g;
     return "'$value'";
 }
-- 
2.7.4