Next Program Repair Shop 58

"Can't happen"

        if ($foo > 0) { ... }
        elsif ($foo <= 0) { ... }
        # Accumulate total payroll expenses
        # But first, make sure Perl's addition operator works correctly
        for (1..100) { $total += $_ }
        die "Addition failure" unless $total == 5050;
        # TODO: this assumes that the == operator works correctly
        #   add more tests!

Next Copyright © 2006 M. J. Dominus