☞

Program Repair Shop

11

Array Length Variables

• We had this:

        24          my $num_items = scalar @{ $O{ $item } };
        25          $O{ $item }->[ $num_items ] = $observer;
        26          if ( ref( $observer ) ) {
        27              weaken( $O{ $item }->[ $num_items ] );
        28          }

• I suggest:

                push @{$O{ $item }}, $observer;
                if ( ref( $observer ) ) {
                    weaken( $O{ $item }->[ -1 ] );
                }

• The test suite still passes

• 4 lines become 3

☞

☞