Re: [perl #21505] 5.8.0 lib/Config test failure due to compiler flag
Nicholas Clark [Sun, 9 Mar 2003 21:24:46 +0000 (21:24 +0000)]
Message-ID: <20030309212445.GE277@Bagpuss.unfortu.net>

p4raw-id: //depot/perl@18888

lib/Config.t

index f13b402..99a39a4 100644 (file)
@@ -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.