my $origin = File::Spec->file_name_is_absolute($0) ? $0 : File::Spec->
+rel2abs($0) ;
my ($drive,$directories,$file) = File::Spec->splitpath( $origin );
my $path = File::Spec->catdir($drive,$directories);
################ check starting path
my $current = File::Spec->rel2abs('.');
if ($current ne $path)  {
        (chdir $path and print "OK chdir to $path\n")|| die "FATAL una
+ble to change directory to '$path'.";
}
[download]

But if now i understand, you want in a module.pm get the absolute path of the script.pl that used it.

If so you can have in the module a BEGIN block that executes before any attempt for (user's) script to change directory. If in the script there is a chdir in a BEGIN block before loading your module.. you are lost.

L*

Just FYI, in a module "included" by use, executable statements in "file scope" are being run inside a begin block.

From the documentation for use, use Module LIST; is the same as:

BEGIN { require Module; Module->import( LIST ); }

The reason for using a BEGIN block in a module to execute some code before the module is completely compiled. Even without the BEGIN block, any "file scope" statements will get executed before anything after the use is compiled (then run).

As for the desirability of file scope code in a module, by design, Perl expects a "used" module to run init/sanity-check code at "use time". This is why most modules end with 1;. Perl is expecting the module to "return" a true value if everything is "A-Okay". Otherwise, a false value tells Perl something went wrong. Fetching the current working directory is a reasonable init action. Of course, if you are more comfortable using a BEGIN block, that's fine, too. TIMTOWTDI.

Then don't change the directory or try to find the current directory at program start by using a BEGIN block.

Well, all you need to do is to make sure your PM is the first "required" in the list of modules... that should be enough to ensure correct cwd...