[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.423,1.424

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14269/lib/Module/Build

Modified Files:
	Base.pm 
Log Message:
Fix some embarassing syntax errors

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.423
retrieving revision 1.424
diff -u -d -r1.423 -r1.424
--- Base.pm	9 Jun 2005 12:03:05 -0000	1.423
+++ Base.pm	13 Jun 2005 21:28:42 -0000	1.424
@@ -1241,8 +1241,8 @@
 sub _home_dir {
   my @os_home_envs = qw( APPDATA HOME USERPROFILE WINDIR SYS$LOGIN );
   
-  foreach ( @ENV{ @os_home_envs } ) {
-    return $_ if exists && defined && length && -d;
+  foreach ( @os_home_envs ) {
+    return $_ if exists $ENV{$_} && defined $ENV{$_} && length $ENV{$_} && -d $ENV{$_};
   }
   
   return;