Program Repair Shop

242

Extraction

Now let's tackle this:

      next unless /\t*chain\s+"chain([0-9])"/;
      $chain_number = $1;
      &cleanup;
      $chain_input = (split /=/,$_)[1];
      $chain_input =~ tr/\"//d;
      $chain[$chain_number] = [split //, $chain_input];

After returning from cleanup, the data looks like this:

        chain"chain1"="00110....11001"

(But about 500 characters long)
Then we do extra work to extract just the 00110....11001 part
Why doesn't cleanup finish cleaning up?

Copyright © 2002 M. J. Dominus