From efc4971c9a18cea3fb9878f4f40eae8f5b0b6255 Mon Sep 17 00:00:00 2001
From: tg <tg@mirbsd.org>
Date: Mon, 14 Jul 2008 14:53:23 +0000
Subject: [PATCH] prevent using a possibly undefined variable (although the
 perl installation in question is probably broken)

---
 check.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/check.pl b/check.pl
index 5f524bb..46f3688 100644
--- a/check.pl
+++ b/check.pl
@@ -1,4 +1,4 @@
-# $MirOS: src/bin/mksh/check.pl,v 1.17 2008/04/01 16:26:42 tg Exp $
+# $MirOS: src/bin/mksh/check.pl,v 1.18 2008/07/14 14:53:23 tg Exp $
 # $OpenBSD: th,v 1.12 2005/05/28 04:53:47 millert Exp $
 #-
 # Example test:
@@ -238,7 +238,7 @@ foreach $env (('USER', 'LOGNAME', 'HOME', 'PATH', 'SHELL')) {
     $new_env{$env} = $ENV{$env} if defined $ENV{$env};
 }
 $new_env{'ENV'} = '/nonexistant';
-if (($^O eq 'VMS') || ($Config{perlpath} =~ m/$Config{_exe}$/i)) {
+if (($os eq 'VMS') || ($Config{perlpath} =~ m/$Config{_exe}$/i)) {
 	$new_env{'__perlname'} = $Config{perlpath};
 } else {
 	$new_env{'__perlname'} = $Config{perlpath} . $Config{_exe};