[66919] trunk/base/src/macports1.0/macports.tcl

[jmr at macports.org]

Revision: 66919
          http://trac.macports.org/changeset/66919
Author:   jmr at macports.org
Date:     2010-04-25 15:17:44 -0700 (Sun, 25 Apr 2010)
Log Message:
-----------
delete incomplete db if converting to sqlite fails

Modified Paths:
--------------
    trunk/base/src/macports1.0/macports.tcl

Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl	2010-04-25 22:02:45 UTC (rev 66918)
+++ trunk/base/src/macports1.0/macports.tcl	2010-04-25 22:17:44 UTC (rev 66919)
@@ -920,8 +920,13 @@
         # convert any flat receipts if we just created a new db
         if {$db_exists == 0 && [file writable $db_path]} {
             ui_warn "Converting your registry to sqlite format, this might take a while..."
-            registry::convert_to_sqlite
-            ui_warn "Successfully converted your registry to sqlite!"
+            if {[catch {registry::convert_to_sqlite}]} {
+                ui_debug "$::errorInfo"
+                file delete -force $db_path
+                error "Failed to convert your registry to sqlite!"
+            } else {
+                ui_warn "Successfully converted your registry to sqlite!"
+            }
         }
     }
 }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20100425/a28a9feb/attachment.html>