You're abusing eval righ there, don't do it ;)
use Env qw[ APP_DIR TMP_DIR PROJ_DIR APP_LOCATION ];
$PROJ_DIR = '/usr/people/userid/app/';
$APP_DIR = '/usr/vendor/app/version/';
$APP_LOCATION = '/usr/vendor/app/version/bin/';
$TMP_DIR = '/usr/tmp/';
system 'printenv';
__END__
The way I see it, Env's only real usefulness is when you're dealing with multi-valued
vars, like PATH (you get to treat them like an array).
Ex:
use Env qw[ $PATH @PATH];
print "$PATH\n";
print "$_\n" for @PATH;
__END__
| MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!" |
| I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README). |
| ** The third rule of perl club is a statement of fact: pod is sexy. |