Ticket #2726: patch-receipt_flat

File patch-receipt_flat, 565 bytes (added by kballard (Lily Ballard), 20 years ago)

Patch for receipt_flat.tcl

Line 
1Index: receipt_flat.tcl
2===================================================================
3RCS file: /Volumes/src/cvs/od/proj/darwinports/base/src/registry1.0/receipt_flat.tcl,v
4retrieving revision 1.6
5diff -u -r1.6 receipt_flat.tcl
6--- receipt_flat.tcl    15 Oct 2004 22:47:49 -0000      1.6
7+++ receipt_flat.tcl    26 Feb 2005 22:22:43 -0000
8@@ -522,7 +522,7 @@
9                # Tell the user.
10                ui_msg "Converting file map to new format (this may take a while)"
11 
12-               foreach f $old_file_map {
13+               foreach f $old_filemap {
14                        filemap set file_map [lindex $f 0] [lindex $f 1]
15                }
16