You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl@perl.apache.org by Oskar <ok...@centrum.cz> on 2003/06/17 02:19:49 UTC
Current directory
Hi,
when I am executing perl script on Apache it seems that the current directory is not the directory where the script is located but the directory c:\program files\apache group\apache. I need current dir to be the script dir since i have some pm in the script directories.
I have apache 1.3.27 and mod_perl 1.
Thanks Oskar
Re: Current directory
Posted by Randy Kobes <ra...@theoryx5.uwinnipeg.ca>.
On Tue, 17 Jun 2003, Oskar wrote:
> ----- Original Message -----
> From: "Thomas Klausner" <do...@zsi.at>
> To: <mo...@perl.apache.org>
> Sent: Tuesday, June 17, 2003 9:41 AM
> Subject: Re: Current directory
>
> > Hi!
> >
> > On Tue, Jun 17, 2003 at 02:19:49AM +0200, Oskar wrote:
> >
> > > when I am executing perl script on Apache it seems that the
> > > current directory is not the directory where the script is
> > > located but the directory c:\program files\apache
> > > group\apache. I need current dir to be the script dir since
> > > i have some pm in the script directories. I have apache
> > > 1.3.27 and mod_perl 1.
> >
> > See:
> > http://perl.apache.org/docs/1.0/guide/porting.html#_INC_and_mod_perl
> >
> I already read that article before posted the message here but
> it does not solve the problem: I am running more than one web
> so the adding of each particular directory seems to me little
> bit dumb. Also i dont see the reason why the current dir should
> be changed to the dir different from the script dir. Any other
> suggestion to solve it?
You might try the FindBin module; from the docs,
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";
However, note the following:
KNOWN ISSUES
If there are two modules using "FindBin" from different
directories under the same interpreter, this won't work. Since
"FindBin" uses "BEGIN" block, it'll be executed only once, and
only the first caller will get it right. This is a problem under
mod_perl and other persistent Perl environments, where you
shouldn't use this module. Which also means that you should avoid
using "FindBin" in modules that you plan to put on CPAN. The only
way to make sure that "FindBin" will work is to force the "BEGIN"
block to be executed again:
delete $INC{'FindBin.pm'};
require FindBin;
--
best regards,
randy kobes
Re: Current directory
Posted by Oskar <ok...@centrum.cz>.
I already read that article before posted the message here but it does not
solve the problem: I am running more than one web so the adding of each
particular directory seems to me little bit dumb. Also i dont see the reason
why the current dir should be changed to the dir different from the script
dir.
Any other suggestion to solve it?
Oskar
----- Original Message -----
From: "Thomas Klausner" <do...@zsi.at>
To: <mo...@perl.apache.org>
Sent: Tuesday, June 17, 2003 9:41 AM
Subject: Re: Current directory
> Hi!
>
> On Tue, Jun 17, 2003 at 02:19:49AM +0200, Oskar wrote:
>
> > when I am executing perl script on Apache it seems that the current
> > directory is not the directory where the script is located but the
directory
> > c:\program files\apache group\apache. I need current dir to be the
script
> > dir since i have some pm in the script directories.
> > I have apache 1.3.27 and mod_perl 1.
>
> See:
> http://perl.apache.org/docs/1.0/guide/porting.html#_INC_and_mod_perl
>
>
> --
> #!/usr/bin/perl http://domm.zsi.at
> for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}
>
>
Re: Current directory
Posted by Thomas Klausner <do...@zsi.at>.
Hi!
On Tue, Jun 17, 2003 at 02:19:49AM +0200, Oskar wrote:
> when I am executing perl script on Apache it seems that the current
> directory is not the directory where the script is located but the directory
> c:\program files\apache group\apache. I need current dir to be the script
> dir since i have some pm in the script directories.
> I have apache 1.3.27 and mod_perl 1.
See:
http://perl.apache.org/docs/1.0/guide/porting.html#_INC_and_mod_perl
--
#!/usr/bin/perl http://domm.zsi.at
for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}