http://www.perlmonks.org?node_id=64713


in reply to (tye)Re2: framechat
in thread framechat

Too much repeated code.
my $tmpdir; for (qw(TMPDIR TMP TEMP)) { next unless $tmpdir = $ENV{$_}; last if -d $tmpdir; die "Invalid temporary directory $tmpdir from \$ENV{$_}\n"; } $tmpdir ||= "/tmp"; # if this is busted, you got troubles...

-- Randal L. Schwartz, Perl hacker