sub getodhome{ my $odhome = q{}; if ($^O eq "MSWin32"){ $odhome = $ENV{IWOD60HOME} || $ENV{IWODHOME} || q{}; } elsif (open(IN, '<', "/etc/defaultiwod60home")) { chomp($odhome = `cat /etc/defaultiwod60home`); close(IN); } elsif (open(IN, '<', "/etc/defaultiwodhome")) { chomp($odhome = `cat /etc/defaultiwodhome`); close(IN); } return trimwhitespace($odhome);}sub trimwhitespace ($) { my $string = shift; $string =~ s/^\s+//; $string =~ s/\s+$//; return $string;}
<IN>