This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix Win32 breakage caused by changes 23535/23542.
authorSteve Hay <SteveHay@planit.com>
Fri, 26 Nov 2004 10:56:12 +0000 (10:56 +0000)
committerSteve Hay <SteveHay@planit.com>
Fri, 26 Nov 2004 10:56:12 +0000 (10:56 +0000)
p4raw-id: //depot/perl@23543

lib/Config.t

index 9828554..76c249d 100644 (file)
@@ -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");
 }