From: Paul Moore <Paul.Moore@uk.origin-it.com>
Date: Wed, 10 Nov 1999 22:52:02 +0000 (+0000)
Subject: DynaLoader_pm.PL patch (backslashes in strings)
X-Git-Tag: accepted/trunk/20130322.191538~34817^2~486
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=001ad4e054cc501178c7216407f3eeee07f02474;p=platform%2Fupstream%2Fperl.git

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
---

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'";
 }