perl - 如何处理 Perl 中的子程序重定义错误

Question

所以我有一个文件，总之有这个问题......

#!/usr/bin/perl -w
package Foo;

use strict;
use POSIX;

...

sub remove {
  ...
}
...

我收到一条错误消息，说子程序 remove被重新定义。我知道问题所在，有个子程序叫 remove在 POSIX 中。但是，我不知道如何处理。这个问题一般是怎么解决的？

Answer 1

抑制此警告的另一种方法是将您的子程序重定义放在 no warnings 'redefine' 中。堵塞:

{
    no warnings 'redefine';
    sub remove { ... }
}