Changeset 562 for trunk/import_cell.tcl


Ignore:
Timestamp:
Dec 4, 2009 5:08:15 PM (11 years ago)
Author:
toby
Message:

# on 2002/02/11 19:30:57, toby did:
make sure file gets closed

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/import_cell.tcl

    • Property rcs:date changed from 2000/08/17 23:46:23 to 2002/02/11 19:30:57
    • Property rcs:lines changed from +24 -14 to +4 -2
    • Property rcs:rev changed from 1.2 to 1.3
    r266 r562  
    3131                set setting [lindex $line 2]
    3232                if {$setting == ""} {set setting 1}
     33                # note that RGNR comes at the end of the file; ignore
     34                # anything beyond here
    3335                close $fp
    3436                global expgui
     
    3941                        set spg [lindex $line 8]
    4042                        set shift [lindex $line 9]
    41                         close $fp
    4243                        break
    4344                    }
    4445                }
     46                close $fp
    4547                break
    4648            }
Note: See TracChangeset for help on using the changeset viewer.