From a63f51340b540074dd98bfc7201e2221c5671d28 Mon Sep 17 00:00:00 2001
From: Paul Smith <psmith@gnu.org>
Date: Fri, 17 Sep 1999 03:15:37 +0000
Subject: * A few script fixes and updates for 3.78.

---
 tests/scripts/functions/foreach | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tests/scripts/functions/foreach')

diff --git a/tests/scripts/functions/foreach b/tests/scripts/functions/foreach
index 0c63c47..b80751b 100644
--- a/tests/scripts/functions/foreach
+++ b/tests/scripts/functions/foreach
@@ -20,7 +20,7 @@ open(MAKEFILE,"> $makefile");
 
 # On WIN32 systems, the user's path is found in %Path% ($Path)
 #
-$pathvar = (($osname =~ /Windows/i) ? "Path" : "PATH");
+$pathvar = (($port_type eq 'Windows') ? "Path" : "PATH");
 
 print MAKEFILE <<EOF;
 foo = bletch null \@ garf
-- 
cgit v1.2.3