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};