Re^2: no module warnings in client code

[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 ...