How to handle subroutine redefined errors in Perl

perl warnings subroutine
floogads picture floogads · Aug 29, 2010 · Viewed 14.2k times · Source

So I have a file that in short has this problem...

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

use strict;
use POSIX;

...

sub remove {
  ...
}
...

and I get a get an error saying the subroutine remove has been redefined. I know the problem, there is a subroutine called remove in POSIX. However, I don't know how to handle it. How is this problem typically solved?

Answer

mob picture mob · Aug 29, 2010

The other way to suppress this warning is to put your subroutine redefinition inside a no warnings 'redefine' block:

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

Related questions

Does python have a "use strict;" and "use warnings;" like in perl?

I am learning perl and python... at the same time, not my by design but it has to be done. Question: In a perl script I use(see below) at the head of my txt. #!/usr/bin/env perl use …

Read More
How can I resolve this case of "Useless use of a variable in a void context"?

How can I resolve this case of "Useless use of a variable in a void context"? For example: my $err = $soap_response->code, " ", $soap_response->string, "\n"; return $err; I get warnings like "Useless use of a variable …

Read More
Perl warning: Use of uninitialized value in join or string

I'm getting: "Use of uninitialized value in join or string at ./test_script.pl line 69, <fh> line 91." The code creating this warning is here: # Write results of SQL execution to output file if ($@) { print "\n DB Error : ", $@; exit; } …

Read More