Re^2: no module warnings in client code

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

citromatik

Comment on Re^2: no module warnings in client code Select or Download Code

Replies are listed 'Best First'.
Re^3: no module warnings in client code by 2teez (Vicar) on Aug 27, 2013 at 14:41 UTC
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 ... If you tell me, I'll forget. If you show me, I'll remember. if you involve me, I'll understand. --- Author unknown to me	[reply] [d/l]