Program Repair Shop

236

Flags

      while (<INFILE>) {  last if /CHAIN_TEST/ }

      while (<INFILE>) {
        ...
        if (/apply/ && ($chain_test)) {
          ...
        }
      }

Unfortunately this isn't quite right
The top loop gobbles up SCAN_CELLS if it sees it
- It was supposed to exit
To fix:

      while (<INFILE>) {  
        exit if /^SCAN_CELLS/;        
        last if /CHAIN_TEST/;
       }

Now the SCAN_CELLS test appears twice (Do Not Repeat Code)
Was eliminating the flag worth the cost?
Try it Both Ways

Copyright © 2002 M. J. Dominus