Re: no module warnings in client code

[kennethk]

There are missing variables here, such as is this a module you maintain, is it emitting warnings directly or using Carp or other secondary module, does your suggested code work?

In general, the easiest and most appropriate way to silence warnings is to address what the warning is complaining about. Assuming you don't want to do that, your code above would work, assuming that the module does not implement its own warning control. If it does, you can cheat by locally clobbering the warning handler:

{
    local $SIG{__WARN__} = sub {#Drop it};
    RandomModule::doSomethingThatCanGenerateWarnings();
}

Update: Added some <del> tags following a node update.

[citromatik]

Hi kennethk

My suggested code doesn't work... If it had worked I wouldn't have asked!

Here is a testing code:

Package:

package tt;

use strict;
use warnings;

sub w {
  my $str = "";
  return substr ($str, 10, 10);
}

1;

Client script:

use strict;
use tt;

print tt::w();

Defining a local warning handler works perfectly:

use strict;
use tt;

local $SIG{__WARN__} = sub {};
print tt::w();

Thanks for the help

[2teez]

Hi citromatik,
And you might want to but local $SIG{__WARN__} = sub{}; into a block like kennethk did it.
If not, you would not receive any other warnings from your client script.
Just saying ...