{
   package OtherModule;
   use warnings;
   sub routine { my $n = 0; my $i = $n + "a"; }
}

{
   no warnings;
   OtherModule->routine();
}

##</code><code>##

Argument "a" isn't numeric in addition (+) at 602580.pl line 4.

##</code><code>##

{
   package OtherModule;
   use warnings;
   sub routine { my $n = 0; my $i = $n + "a"; }
}

{
   local $^W = 0;
   OtherModule->routine();
}

##</code><code>##

Argument "a" isn't numeric in addition (+) at 602580.pl line 4.