Eliminating Warnings (2)

• Note that file does not have use warnings;

• Run this file in Perl 5 (adapted from t/op/groups.t

        $ perl heed-syntax-warning.t
        ok 1 # skip uid!=0
        1..1

• Now call for warnings in Perl 5

        $ perl -w heed-syntax-warning.t
        Scalar value @sup_group[2] better written as $sup_group[2] at heed-syntax-warning.t line 18.
        ok 1 # skip uid!=0
        1..1

• Here's the offending code

         16     skip "No group found we could add as a supplementary group", 1
         17         if (!@sup_group);
         18     $) = "$) @sup_group[2]";   # <---- Offender! 

• Perl 7 won't let you ignore that!