From: Steve Hay <SteveHay@planit.com>
Date: Fri, 26 Nov 2004 10:56:12 +0000 (+0000)
Subject: Fix Win32 breakage caused by changes 23535/23542.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=375b6f9c3cf61249fbff2151731131e9a0b72a6c;p=p5sagit%2Fp5-mst-13.2.git

Fix Win32 breakage caused by changes 23535/23542.

p4raw-id: //depot/perl@23543
---

diff --git a/lib/Config.t b/lib/Config.t
index 9828554..76c249d 100644
--- a/lib/Config.t
+++ b/lib/Config.t
@@ -223,7 +223,7 @@ foreach my $pain ($first, @virtual) {
 
   @result = Config::config_re($pain);
   is (scalar @result, 1, "single result for config_re('$pain')");
-  like ($result[0], qr/^$pain=(['"])$Config{$pain}\1$/, # grr '
+  like ($result[0], qr/^$pain=(['"])\Q$Config{$pain}\E\1$/, # grr '
 	"which is the expected result for $pain");
 }