From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 9 Mar 2003 21:24:46 +0000 (+0000)
Subject: Re: [perl #21505] 5.8.0 lib/Config test failure due to compiler flag
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9d60fda321e877ece79517ad795f7f4cf63bb3a7;p=p5sagit%2Fp5-mst-13.2.git

Re: [perl #21505] 5.8.0 lib/Config test failure due to compiler flag
Message-ID: <20030309212445.GE277@Bagpuss.unfortu.net>

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

diff --git a/lib/Config.t b/lib/Config.t
index f13b402..99a39a4 100644
--- a/lib/Config.t
+++ b/lib/Config.t
@@ -62,8 +62,8 @@ ok(exists $Config{ccflags_nolargefiles}, "has ccflags_nolargefiles");
     }
 }
 
-like(Config::myconfig(),       qr/osname=$Config{osname}/,   "myconfig");
-like(Config::config_sh(),      qr/osname='$Config{osname}'/, "config_sh");
+like(Config::myconfig(),       qr/osname=\Q$Config{osname}\E/,   "myconfig");
+like(Config::config_sh(),      qr/osname='\Q$Config{osname}\E'/, "config_sh");
 like(join("\n", Config::config_re('c.*')),
 			       qr/^c.*?=/,                   'config_re' );
 
@@ -79,7 +79,7 @@ $out->clear;
 
 untie *STDOUT;
 
-like($out1, qr/^cc='$Config{cc}';/, "config_vars cc");
+like($out1, qr/^cc='\Q$Config{cc}\E';/, "config_vars cc");
 like($out2, qr/^d_bork='UNKNOWN';/, "config_vars d_bork is UNKNOWN");
 
 # Read-only.