[29361] trunk/base/portmgr/PortIndex2MySQL.tcl

[source_changes at macosforge.org]

Revision: 29361
          http://trac.macosforge.org/projects/macports/changeset/29361
Author:   jmpp at macports.org
Date:     2007-09-22 01:16:17 -0700 (Sat, 22 Sep 2007)

Log Message:
-----------
Use the cleanup proc to handle the runlog file too. Call to the subject and recipient variables only if needed.

Modified Paths:
--------------
    trunk/base/portmgr/PortIndex2MySQL.tcl

Modified: trunk/base/portmgr/PortIndex2MySQL.tcl
===================================================================
--- trunk/base/portmgr/PortIndex2MySQL.tcl	2007-09-22 07:34:36 UTC (rev 29360)
+++ trunk/base/portmgr/PortIndex2MySQL.tcl	2007-09-22 08:16:17 UTC (rev 29361)
@@ -84,13 +84,12 @@
 # What to do when terminating execution, depending on the $exit_status condition.
 proc terminate {exit_status} {
     global runlog runlog_fd
-    global subject SPAM_LOVERS
     if {$exit_status} {
+        global subject SPAM_LOVERS
         seek $runlog_fd 0 start
         exec -- mail -s $subject $SPAM_LOVERS <@ $runlog_fd
     }
-    close $runlog_fd
-    file delete -force $runlog
+    cleanup runlog
     exit $exit_status
 }
 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20070922/63573eed/attachment.html