TWiki执行configure报错：Can't locate Error.pm，紧急求助！

buxoman

在本机上安装TWiki，配置好以后执行configure脚本开始系统配置，发现报下列错误：
Software error:

Can't locate Error.pm in @INC (@INC contains: C:\TWiki\lib . C:/Perl/site/lib C:/Perl/lib) at C:\TWiki\lib/TWiki/Configure/LANGUAGES.pm line 28, <F> line 1354.
BEGIN failed--compilation aborted at C:\TWiki\lib/TWiki/Configure/LANGUAGES.pm line 28, <F> line 1354.
Compilation failed in require at (eval 92) line 2, <F> line 1354.
BEGIN failed--compilation aborted at (eval 92) line 2, <F> line 1354.
at C:\TWiki\lib/TWiki/Configure/Pluggable.pm line 42, <F> line 1354.
        TWiki::Configure:luggable::load('LANGUAGES') called at C:\TWiki\lib/TWiki/Configure/TWikiCfg.pm line 236
        TWiki::Configure::TWikiCfg::_parse('C:\TWiki\lib/TWiki.spec', 'TWiki::Configure::Root=HASH(0xda0114)', 1) called at C:\TWiki\lib/TWiki/Configure/TWikiCfg.pm line 97
        TWiki::Configure::TWikiCfg::load('TWiki::Configure::Root=HASH(0xda0114)', 1) called at C:/TWiki/bin/configure line 638
        TWiki::_actionPromptPassword() called at C:/TWiki/bin/configure line 478

经过检查，我确定在C:\TWiki\lib\CPAN\lib下存在Error.pm。

不太了解PERL。这是怎么回事儿呢？特来请高手大侠出手相助。

zhlong8

Perl 是从 @INC 中依次查找需要的模块的，你那个目录明显不在其中(第一行中有显示@INC 的内容 )。可以在脚本的最开始写个 use lib 'c:\Twiki\lib\CPAN\lib';或者设环境变量 PERL5LIB 包含这个目录

buxoman

zhlong8 发表于 2013-05-13 08:58
Perl 是从 @INC 中依次查找需要的模块的，你那个目录明显不在其中(第一行中有显示@INC 的内容 )。可以在脚本 ...

非常感谢版主施以援手。按照这个思路，我对twiki 5.1.1/bin/configure脚本看了一下，发现下列代码没有生效:
@INC=('.', grep{ $_  ne  '.' }  @INC);
eval 'require "setlib.cfg"';
在执行完eval后检查@INC的值，没有发生变化。
我单独执行setlib.cfg，发现@INC的值是正确的。
还请版主不吝再教我，非常感谢。

zhlong8

回复 3# buxoman


    eval 是运行期执行的，而 use 是在编译期，查找模块的时候 eval 的代码还没执行吧， 那个 eval 是在个 BEGIN 代码块中执行的吗？

buxoman

我用加print的方法，在命令行窗口下直接执行configure脚本。我觉得可能执行流程根本就没有走到setlib.cfg脚本中去。

我看了下代码，前后都没有BEGIN这种语法单位。

buxoman

buxoman 发表于 2013-05-13 12:39
我用加print的方法，在命令行窗口下直接执行configure脚本。我觉得可能执行流程根本就没有走到setlib.cfg脚 ...

我把相关代码贴一下：

###########################################################
# Establish the path to the TWiki library

# Set the working dir to the bin dir
no warnings;
$FindBin::Bin =~ /^(.*)$/;
use warnings;
chdir($1);
my @root = File::Spec->splitdir($1);
pop(@root);
my @script     = File::Spec->splitdir($0);
my $scriptName = pop(@script);
$scriptName =~ s/.*[\/\\]//;    # Fix for Item3511, on Win XP

# Try to load the LocalLib.cfg optional overload

# Paths from LocalLib.cfg (preferred)
use vars qw( $twikiLibPath @localPerlLibPath );

@INC = ('.', grep { $_ ne '.' } @INC); # setlib.cfg is in current directory
foreach my $n (@INC) {print "$n ";} print "\n";
eval 'require "setlib.cfg"';
#foreach my $n (@INC) {print "$n ";}
#print "\n";

buxoman

我把eval去掉，require语句执行了。
# Paths from LocalLib.cfg (preferred)
use vars qw( $twikiLibPath @localPerlLibPath );

@INC = ('.', grep { $_ ne '.' } @INC); # setlib.cfg is in current directory
require "setlib.cfg";    # 这里不用eval

再执行configure脚本，爆出下列错误：
Software error:
defined(@array) is deprecated at setlib.cfg line 53.

Software error:
[Mon May 13 15:29:16 2013] configure: defined(@array) is deprecated at setlib.cfg line 53.
Compilation failed in require at D:/TWiki511/bin/configure line 211.

下面是setlib.cfg的代码，很短，全部贴出来：

use vars qw( $twikiLibPath @localPerlLibPath );

eval 'require "LocalLib.cfg"';

unless (( defined ($twikiLibPath) ) and (-e $twikiLibPath)) {
        use Cwd qw( abs_path );
        ( $twikiLibPath ) = ($twikiLibPath = Cwd::abs_path( "../lib" )) =~ /(.*)/;
}
if ($twikiLibPath eq "") {
    $twikiLibPath = "../lib";
    warn "using relative path for libs - some plugins may break";
}

#    Path to local Perl modules
my $defaultingCPANBASE = !defined($CPANBASE);
$CPANBASE = "$twikiLibPath/CPAN/lib" unless $CPANBASE;
if ( -e $CPANBASE ) {
        require Config;
        my $VER = $Config::Config{version};
        my $SITEARCH = $Config::Config{archname};
        push @localPerlLibPath, ( "$CPANBASE/arch", "$CPANBASE/$VER/$SITEARCH", "$CPANBASE/$VER", "$CPANBASE" );
}

# Prepend to @INC, the Perl search path for modules
unshift @INC, $twikiLibPath;
if ($defaultingCPANBASE) {
        push @INC, @localPerlLibPath if defined @localPerlLibPath;   # 错误提示53行即本行
} else {
        unshift @INC, @localPerlLibPath if defined @localPerlLibPath;
}

从错误消息看，似乎是对全局变量的使用有误。

buxoman

请问，在执行CGI-BIN脚本configure的时候，变量@INC是环境变量吗？还是要自己定义呢？

buxoman

判断一个数组型变量是否存在的语法是怎样的呢？按照错误提示，这种 defined(@array)语法已经被抛弃了。

buxoman

把下列两个defined判断修改一下，就可以正常执行twiki的cgi脚本configure了。

# Prepend to @INC, the Perl search path for modules
unshift @INC, $twikiLibPath;
if ($defaultingCPANBASE) {
        push @INC, @localPerlLibPath if defined $localPerlLibPath[0];
} else {
        unshift @INC, @localPerlLibPath if defined $localPerlLibPath[0];
}