Perl – 子程序重新定义

我以前问过这个问题或者是搜索过，看到别人问 – 为什么我得到警告“子程序mySub重新定义在../lib/Common.pm行x”？你总是在相同的代码中得到你声明的次数两次的答案。我创建了这个测试包：

完整文件—————

package MyCommonPkg;

use strict;

sub thisSubroutineIsNotDefinedAnywhereElse{
}

1;

完整文件—————

我使用这个包从使用其他包的perl脚本，也使用这个包，我得到警告：

子程序ThisSubroutineIsNotDefinedAnywhereElse在../lib/MyCommonPkg.pm行重新定义19。

我保证我没有在其他地方宣布这个。这是由循环引用引起的？如何跟踪这个警告的原因和修复？

解决方法

你有一个依赖循环吗？如果Perl开始编译你的脚本并遇到这样的一行：

use PackageA;

Perl暂停您的脚本的编译;找到PackageA.pm并开始编译它。如果遇到这样的行：

use PackageB;

Perl暂停编译PackageA;找到PackageB.pm并开始编译它。通常，这将成功完成，并且Perl将返回完成编译PackageA，并且成功完成后，它将返回编译脚本，并且成功完成后，它将开始执行编译的操作码。

但是，如果PackageB.pm包含以下行：

use PackageA;

你可能会期望它不会执行任何操作，因为Perl已经处理了PackageA.pm，但问题是它还没有完成。所以Perl会暂停编译PackageB，并从头开始再次编译PackageA.pm。这可能会触发您正在看到的有关在PackageA中重新定义的子例程的消息。

作为一般规则，两个包不应该彼此依赖。有时候，循环更难找到，因为它是由第三个包引起的。