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


in reply to Re: Re: Re: Re: framechat
in thread framechat

Here is one way to do the above while giving a decent error message:

my $env; my $tmpdir= $ENV{$env="TMPDIR"} || $ENV{$env="TMP"} || $ENV{$env="TEMP"} || ($env="","/tmp"); if( ! -d $tmpdir ) { die "Invalid temporary directory ($tmpdir)", $env ? " (taken from \$ENV{$env})" : "(please set TMPDIR, TMP, or TEMP in your environment)", "\n"; }

        - tye (but my friends call me "Tye")