GwenDragon+2008-08-11 09:34:00--

Quote

Damit die Lib gefunden wird hatte ich den Suchpfad ergänzt.

mit push(@INC ... ?

Quote

Code: (dl )

1
2
3
4
5
6
7
8
9

#!/usr/bin/perl -w
use strict;
use File::Find;
use CGI::Carp qw(fatalsToBrowser);

BEGIN {
push(@INC, '/www/htdocs/*****/cgi-bin/diff_perl/lib/');
}; 
use Algorithm::Diff qw(diff);

Code: (dl )

1
2
3

BEGIN {
unshift(@INC, '/www/htdocs/*****/cgi-bin/diff_perl/lib/');
}; 

wäre sinnvoller, da haben die Module im inkludierten Pfad vorrang.

use lib ist noch sinnvoller, weil dann noch die anderen Pfade wie "auto" oder mit der Version (z.B. "5.8.8") mit in den Suchpfad aufgenommen werden.