This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
It seems daft to me that we have a synopis example that will fail if
authorNicholas Clark <nick@ccl4.org>
Sun, 2 May 2004 22:40:18 +0000 (22:40 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 2 May 2004 22:40:18 +0000 (22:40 +0000)
gcc happened to be invoked via the name cc, and completely ignores
the far more reliable 'gccversion' variable
So here's one using 'usethreads' that ought to work everywhere.

p4raw-id: //depot/perl@22768

configpm

index f232c9b..d3d15ee 100755 (executable)
--- a/configpm
+++ b/configpm
@@ -435,8 +435,8 @@ Config - access Perl configuration information
 =head1 SYNOPSIS
 
     use Config;
-    if ($Config{'cc'} =~ /gcc/) {
-       print "built by gcc\n";
+    if ($Config{usethreads}) {
+       print "has thread support\n"
     } 
 
     use Config qw(myconfig config_sh config_vars config_re);