2 ways of looking at your quesiton:
FindBin:
NAME
FindBin - Locate directory of original perl script
SYNOPSIS
use FindBin;
use lib "$FindBin::Bin/../lib";
or
use FindBin qw($Bin);
use lib "$Bin/../lib";
give you where the script itself is. The module Cwd recommends using
File::Spec if portability is an issue - as you're asking on win32 ...
NAME
File::Spec - portably perform operations on file names
SYNOPSIS
use File::Spec;
...
curdir
Returns a string representation of the current directory.
$curdir = File::Spec->curdir();
a
Andy Bach
Systems Mangler
Internet: [EMAIL PROTECTED]
VOICE: (608) 261-5738 FAX 264-5932
The competent programmer is fully aware of the strictly limited size of
his own skull; therefore he approaches the programming task in full
humility, and among other things he avoids clever tricks like the
plague. -- Edsger Dijkstra
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
