Next

Program Repair Shop

249

Main Loop Finished

• Only one last little change

      next unless /\t*chain\s+"chain([0-9])"/;
      $chain[$1] = cleanup($_);

• This assigns elements 1..7 of @chain

• Element 0 is still undefined

• In printout, we have

      for (@chain) { 
        $_->[$i] =~ s/0/L/g; 
        $_->[$i] =~ s/1/H/g;
      }

• This produces zillions of uninitialized value warnings

• How to fix this?

Next

Copyright © 2002 M. J. Dominus