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

Comment on Re: Re: Re: Re: framechat Select or Download Code

Replies are listed 'Best First'.
(tye)Re2: framechat by tye (Sage) on Mar 15, 2001 at 20:35 UTC
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"; }` [download] - tye (but my friends call me "Tye")	[reply] [d/l]
Re: (tye)Re2: framechat by merlyn (Sage) on Mar 15, 2001 at 21:14 UTC
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...` [download] -- Randal L. Schwartz, Perl hacker	[reply] [d/l]
(tye)Re3: framechat by tye (Sage) on Mar 15, 2001 at 21:41 UTC
`$tmpdir \|\|= "/tmp"; # if this is busted, you got troubles...` [download] I guess you've never heard of the existance of other operating systems, eh? (: - tye (but my friends call me "Tye")	[reply] [d/l]
Re: (tye)Re3: framechat by chromatic (Archbishop) on Mar 19, 2001 at 10:24 UTC


good chemistry is complicated, and a little bit messy -LW
	PerlMonks