[svn:parrot] r36299 - trunk/config/init/hints

[particle at svn.parrot.org]

Author: particle
Date: Mon Feb  2 20:34:56 2009
New Revision: 36299
URL: https://trac.parrot.org/parrot/changeset/36299

Log:
[config] modify compiler-detection logic on win32, in order to enable ccache compatibility

Modified:
   trunk/config/init/hints/mswin32.pm

Modified: trunk/config/init/hints/mswin32.pm
==============================================================================
--- trunk/config/init/hints/mswin32.pm	Mon Feb  2 20:00:07 2009	(r36298)
+++ trunk/config/init/hints/mswin32.pm	Mon Feb  2 20:34:56 2009	(r36299)
@@ -19,10 +19,10 @@
     # We do one bit of its work early here, because we need the result now.
     $cc = $conf->options->get('cc') if defined $conf->options->get('cc');
 
-    my $is_msvc  = grep { $cc eq $_ } (qw(cl cl.exe));
-    my $is_intel = grep { $cc eq $_ } (qw(icl icl.exe));
-    my $is_mingw = grep { $cc eq $_ } (qw(gcc gcc.exe));
-    my $is_bcc   = grep { $cc eq $_ } (qw(bcc32 bcc32.exe));
+    my $is_msvc  = $cc =~ m/\bcl(?:\.exe)?/;
+    my $is_intel = $cc =~ m/\bicl(?:\.exe)?/;
+    my $is_mingw = $cc =~ m/\bgcc(?:\.exe)?/;
+    my $is_bcc   = $cc =~ m/\bbcc32(?:\.exe)?/;
 
     $conf->data->set(
         win32  => 1,