CODEWITHSUNDEEP
perlwarningssubroutine
floogads
floogads

Reputation: 271

How to handle subroutine redefined errors in Perl

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?

Upvotes: 15

Views: 16048

Answers (4)

Sujitha Suresh
Sujitha Suresh

Reputation: 9

Subroutine XYZ redefined at line N [perl error]

You could wrap your routine in no warnings 'redefine' (which is lexically scoped):

no warnings 'redefine';

sub XYZ{
  ...
  ...
}

It worked for me!

Upvotes: -1

Ether
Ether

Reputation: 53966

You can exclude certain symbols from being normally exported with the '!name' directive (see perldoc Exporter), e.g.:

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

use strict;
use POSIX '!remove';

...

sub remove {
  ...
}
...

Upvotes: 21

mob
mob

Reputation: 118605

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

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

Upvotes: 27

ennuikiller
ennuikiller

Reputation: 46965

do this:

use POSIX ();

which will stop the export all default functionality of the POSIX module. You will then need to prefix all POSIX methods with POSIX:: such as:

POSIX::remove(filename)

for the POSIX remove function.

Upvotes: 23

Related Questions