Re: Re: Re: Re: framechat

[tye]

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

BTW, the suggestion on this that I made in the chatterbox was $ENV{TMPDIR} || $ENV{TMP} || $ENV{TEMP} || "/tmp"
(with the possiblity of replacing "/tmp" with File::Spec->tmpdir() if you don't mind requiring Perl 5.6) and then dieing if the resulting directory did not exist.

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

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