Perl导入IO::Compress::Zip时出现未请求符号的导入错误求助

问题现象 #

开发引用Perl Web应用包的命令行工具时，出现不符合预期的导入错误：明明未向IO::Compress::Zip请求gzip或$GzipError符号，却触发导出错误。移除use AllZip或调整导入顺序可临时解决，但真实场景无法修改应用包或调整顺序。

环境信息 #

• Perl 5.40.1（v5.40.1）
• Windows 11，通过cpanm本地编译模块

代码示例 #

AllZip.pm

package AllZip;

use strict;
use warnings;

use IO::Uncompress::Unzip qw(unzip $UnzipError);
use Archive::Zip::SimpleZip qw($SimpleZipError);

1;

test.pl

package test;

use strict;
use warnings;
use Carp;

use AllZip;     # Line 7

use IO::Compress::Gzip qw(:constants gzip $GzipError);      # Line 9
use IO::Compress::Zip 2.213 qw(:all);       # Line 10 (taken from Archive::Zip::SimpleZip)

print (($GzipError // '') . " is imported.\n");
print (($ZipError // '') . " is imported.\n");

错误输出 #

"$GzipError" is not exported by the IO::Compress::Zip module
"gzip" is not exported by the IO::Compress::Zip module
Can't continue after import errors at test.pl line 10.
BEGIN failed--compilation aborted at test.pl line 10.

简化复现代码（@ikegami提供） #

$ perl -e'
   use IO::Compress::Zip  qw();
   use IO::Compress::Gzip qw();
   use IO::Compress::Zip  qw( :all );  # Line 4
'

输出同样的导入错误。

原因分析 #

这是IO::Compress系列模块的导出符号缓存污染问题：

1. IO::Compress::Zip、IO::Compress::Gzip等模块共享同一套导出底层逻辑（基于Exporter实现，但模块间复用了导出标签的缓存）。
2. 当加载Gzip后，它的导出符号（gzip、$GzipError）会被误加入到Zip模块的:all标签缓存中。
3. 用户场景中，AllZip.pm里的use Archive::Zip::SimpleZip会间接加载IO::Compress::Zip；后续test.pl加载Gzip，再显式加载Zip并请求:all时，Perl会尝试导入被污染的符号列表，而这些符号并不属于Zip模块，最终触发错误。

解决方案 #

1. 避免使用:all，只导入所需符号 #

放弃:all通配导入，明确指定需要的符号，从根源避免缓存污染问题：

# 替换test.pl中的Line 10
use IO::Compress::Zip 2.213 qw(zip $ZipError); # 仅导入实际需要的符号

2. 重置Zip模块的:all标签缓存 #

如果必须保留:all导入，可在加载Zip前手动重置其:all标签缓存，清空被污染的符号：

# 在use IO::Compress::Zip之前添加BEGIN块
BEGIN {
    # 重置:all标签为Zip模块原生导出的符号集合
    delete $IO::Compress::Zip::EXPORT_TAGS{all};
    $IO::Compress::Zip::EXPORT_TAGS{all} = [ @IO::Compress::Zip::EXPORT, @IO::Compress::Zip::EXPORT_OK ];
}
use IO::Compress::Zip 2.213 qw(:all);

3. 调整加载顺序（仅测试场景可用） #

将use IO::Compress::Zip放在use IO::Compress::Gzip之前，但此方法不适用于真实业务场景（用户无法调整依赖加载顺序）。

内容的提问来源于stack exchange，提问作者DylanStreb