October 7 2020 Perl 7: An Opinionated Introduction Back

Eliminating Warnings (2)

        $ perl heed-syntax-warning.t
        ok 1 # skip uid!=0
        1..1
        $ 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
         16     skip "No group found we could add as a supplementary group", 1
         17         if (!@sup_group);
         18     $) = "$) @sup_group[2]";   # <---- Offender! 


Home Last TOC Copyright © 2020 James E Keenan Back Next