Revision: 54325
http://brlcad.svn.sourceforge.net/brlcad/?rev=54325&view=rev
Author: brlcad
Date: 2013-02-06 17:16:02 +0000 (Wed, 06 Feb 2013)
Log Message:
-----------
no point stashing the result if we don't use it
Modified Paths:
--------------
brlcad/trunk/src/tclscripts/mged/dbupgrade.tcl
Modified: brlcad/trunk/src/tclscripts/mged/dbupgrade.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/mged/dbupgrade.tcl 2013-02-06 17:15:13 UTC
(rev 54324)
+++ brlcad/trunk/src/tclscripts/mged/dbupgrade.tcl 2013-02-06 17:16:02 UTC
(rev 54325)
@@ -282,7 +282,7 @@
# make original read-only
if {catch {file attributes "$db_orig" -permissions 0440}} {
# windows doesn't understand -permissions
- catch {file attributes "$db_orig" -readonly 1} result
+ catch {file attributes "$db_orig" -readonly 1}
}
# dbupgrade converts the original database to the current db format
@@ -302,14 +302,14 @@
# set file permissions to match original state
if {catch {file attributes "$dbname" -permissions $perms}} {
# windows doesn't understand -permissions
- catch {file attributes "$dbname" -readonly $perms} result
+ catch {file attributes "$dbname" -readonly $perms}
}
# reopen original or new db
opendb "$dbname" y
# remove tmp file
- catch {file delete "$tmp_dbname"} result
+ catch {file delete "$tmp_dbname"}
unset dbupgrade_priv(dbname)
}
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
------------------------------------------------------------------------------
Free Next-Gen Firewall Hardware Offer
Buy your Sophos next-gen firewall before the end March 2013
and get the hardware for free! Learn more.
http://p.sf.net/sfu/sophos-d2d-feb
_______________________________________________
BRL-CAD Source Commits mailing list
brlcad-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/brlcad-commits
