package Warned5;
use strict;
use warnings 'once';
sub foo {
my $unused_var;
my $unused_var;
return;
}
1;
package Warned5;
use strict;
use warnings 'once';
sub foo {
my $unused_var;
my $unused_var;
return;
}
1;