当前位置：首页 → 问答吧 → 求教问题：在perl模块最后加上“1；” 还是会报错“did not return a true value”

求教问题：在perl模块最后加上“1；” 还是会报错“did not return a true value”

时间：2011-05-03

来源：互联网

本帖最后由 mmbh 于 2011-05-03 19:58 编辑

自己写的两个模块，末尾都加上了“1；”，在Main.pl中调用模块函数时一个正常但另一个报错：

Module 1：

package Device::Serial;
use strict;
use warnings;
use Win32::SerialPort;
require Exporter;
our @EXPORT = qw();
our @EXPORT_OK = qw();
sub1
sub2
...
1;

复制代码

Module 2:

package Init::ParseCfg;
use strict;
use warnings;
use Config::IniFiles;
require Exporter;
our @EXPORT = qw();
our @EXPORT_OK = qw();
sub1
sub2
...
1;

复制代码

Main.pl:

#!/usr/bin/perl
use strict;
use warnings;
use Carp;
use FindBin qw($Bin);
use lib "$Bin";
use Device::Serial;
use Init::ParseCfg;

复制代码

编译时报“InitParseCfg.pm did not return a true value at Main.pl line 10,
BEGIN failed--compilation aborted at Main.pl line 10."

环境是winxp 32bit， ActivePerl 5.10.1

奇怪的是Serial模块用起来就正常，第二个不管怎么弄都要报这个错。@INC路径应该没有问题啊。请这里的高手帮忙看看是哪里出错了，万分感谢

作者: mmbh 发布时间: 2011-05-03

InitParseCfg.pm did not return a true value at Main.pl line 10,

package Init::ParseCfg;

作者: zhlong8 发布时间: 2011-05-03

本帖最后由 mmbh 于 2011-05-03 20:54 编辑

回复 zhlong8

感谢LS的回复。
我知道是这个模块的错误，Perl的提示信息很清楚，只是不知道为什么会出现这个错误而另一个模块没有出错。
请问是出现了命名冲突吗？

作者: mmbh 发布时间: 2011-05-03

QUOTE:

回复 zhlong8

感谢LS的回复。
我知道是这个模块的错误，Perl的提示信息很清楚，只是不知道为什么 ...
mmbh 发表于 2011-05-03 20:49

你的 Init 文件夹下有 ParseCfg.pm 这个文件吗？我是这个意思。两种名字不同

作者: zhlong8 发布时间: 2011-05-03

回复 zhlong8

谢谢你的热心回复。

我的Main.pl所在文件夹里有一个子文件夹“Init”，里面只有一个文件“ParseCfg.pm”，Device模块也是如此。
开始我以为是路径的问题,但是改了文件夹和pm的名字,甚至把ParseCfg.pm和Main.pl放在同一个文件夹里,直接用"use ParseCfg"和"require ParseCfg.pm"都试过了,还是不行啊

看来自己是钻牛角尖了呢.