Re^3: use lib qw(relative path)

I think it would be far more useful finding out why FindBin isn't working and spending time fixing that, rather than wasting time reimplementing it.

We might be able to give you more help if there weren't so many ***s in your error messages :)

--
<http://www.dave.org.uk>

"The first rule of Perl club is you do not talk about Perl club."
-- Chip Salzenberg

Comment on Re^3: use lib qw(relative path)

Replies are listed 'Best First'.
Re^4: use lib qw(relative path) by ccn (Vicar) on Sep 26, 2004 at 10:23 UTC
I beleive that I can't fix it. I have no contact with admin of that hosting. Please see without '***': `cs7793@v25:~#perl -e 'use FindBin' opendir(./..): Permission denied at /usr/libdata/perl/5.00503/FindBin. +pm line 97 cs7793@v25:~#perldoc -m FindBin\|grep VERSION $VERSION = $VERSION = "1.42"; cars7793@v25:~#perldoc -m FindBin\|perl -ne 'print if $. == 97' $Bin = $RealBin = getcwd(); cs7793@v25:~#perl -e 'use Cwd; print Cwd::getcwd' opendir(./..): Permission denied at -e line 1 cs7793@v25:~#perldoc -m Cwd \|grep VERSION $VERSION = '2.01'; cs7793@v25:~#` [download] Your move! :)	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: use lib qw(relative path)
by ccn (Vicar) on Sep 26, 2004 at 10:23 UTC

I beleive that I can't fix it. I have no contact with admin of that hosting. Please see without '***':

cs7793@v25:~#perl -e 'use FindBin'

opendir(./..): Permission denied at /usr/libdata/perl/5.00503/FindBin.
+pm line 97

cs7793@v25:~#perldoc -m FindBin|grep VERSION

$VERSION = $VERSION = "1.42";

cars7793@v25:~#perldoc -m FindBin|perl -ne 'print if $. == 97'

   $Bin    = $RealBin    = getcwd();

cs7793@v25:~#perl -e 'use Cwd; print Cwd::getcwd'

opendir(./..): Permission denied at -e line 1

cs7793@v25:~#perldoc -m Cwd |grep  VERSION

$VERSION = '2.01';

cs7793@v25:~#
[download]

Your move! :)

[reply]
[d/l]