This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Patch t/win32/system.t for mingw32/64
authorSisyphus <sisyphus1@optusnet.com.au>
Wed, 14 Oct 2009 10:58:49 +0000 (06:58 -0400)
committerDavid Golden <dagolden@cpan.org>
Wed, 14 Oct 2009 11:01:02 +0000 (07:01 -0400)
t/win32/system.t

index 1ed5fe9..324035b 100644 (file)
@@ -113,7 +113,7 @@ if (open(my $EIN, "$cwd/win32/${exename}_exe.uu")) {
 }
 else {
     my $minus_o = '';
-    if ($Config{cc} =~ /^gcc/i)
+    if ($Config{cc} =~ /\bgcc/i)
      {
       $minus_o = "-o $exename.exe";
      }