[perl #71204] diagnostics.pm suppresses 'Use of uninitialized value in range (or...

[p5sagit/p5-mst-13.2.git] / t / win32 / system.t

diff --git a/t/win32/system.t b/t/win32/system.t
index 1ed5fe9..324035b 100644 (file)
--- a/t/win32/system.t
+++ b/t/win32/system.t
@@ -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";
      }