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;
[download]

Client script:

use strict;
use tt;

print tt::w();
[download]

Defining a local warning handler works perfectly:

use strict;
use tt;

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

Thanks for the help