perl - 为什么这会停止我的 perl 应用程序包 'not registered for warnings'

Question

我正在使用 perl 中的内部 Web 网关框架工作。现在我正在尝试使用 Image::Magick::Thumbnail 来创建缩略图。

但是如果我有这条线

my ($thumb, $x, $y) = Image::Magick::Thumbnail::create($image, 50);

我收到以下错误。

package 'Image::Magick::Thumbnail' not registered for warnings

我已经追踪到 warnings.pm 的第 313 行

        Croaker("package '$category' not registered for warnings")

但我不确定为什么这会使我的程序停止任何想法？

Answer 1

use warnings::register; 创建一个与当前包同名的警告类别。

Image::Magick::Thumbnail 检查类别 Image::Magick::Thumbnail 的警告是否启用，但实际上并没有使用 use warnings::register 创建这样的类别;。

该行在代码中，但被注释掉了？!您可以编辑模块以取消注释该行以解决问题。在您的脚本中包含以下内容也可以解决问题:

{
   package Image::Magick::Thumbnail;
   use warnings::register;
}