Suppressing Warnings (1)

• We want to honor the original test file author's intent as to what is being tested

• We suppress a warning if the warning is not pertinent to what we're testing

        $ cat foo.pl
        use strict;
        use warnings;
        my ($i, $j, $k);
        $i = 'foo';
        $k = $i . $j;
        print "$k\n";

continued...