(tye)Re2: framechat

[tye]

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")

[merlyn]

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

[tye]

$tmpdir ||= "/tmp"; # if this is busted, you got troubles...

I guess you've never heard of the existance of other operating systems, eh? (:

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

[chromatic]

He has, that's why he can say it's trouble. :)