[78071] trunk/base/src/port1.0

[jmr at macports.org]

Revision: 78071
          http://trac.macports.org/changeset/78071
Author:   jmr at macports.org
Date:     2011-04-22 01:51:38 -0700 (Fri, 22 Apr 2011)
Log Message:
-----------
fix livecheck, use better default subport fallback

Modified Paths:
--------------
    trunk/base/src/port1.0/portlivecheck.tcl
    trunk/base/src/port1.0/portmain.tcl

Modified: trunk/base/src/port1.0/portlivecheck.tcl
===================================================================
--- trunk/base/src/port1.0/portlivecheck.tcl	2011-04-22 08:32:06 UTC (rev 78070)
+++ trunk/base/src/port1.0/portlivecheck.tcl	2011-04-22 08:51:38 UTC (rev 78071)
@@ -66,7 +66,7 @@
     global livecheck.url livecheck.type livecheck.md5 livecheck.regex livecheck.name livecheck.distname livecheck.version
     global livecheck.ignore_sslcert
     global homepage portpath workpath
-    global master_sites subport distfiles
+    global master_sites name subport distfiles
 
     set updated 0
     set updated_version "unknown"

Modified: trunk/base/src/port1.0/portmain.tcl
===================================================================
--- trunk/base/src/port1.0/portmain.tcl	2011-04-22 08:32:06 UTC (rev 78070)
+++ trunk/base/src/port1.0/portmain.tcl	2011-04-22 08:51:38 UTC (rev 78071)
@@ -64,11 +64,11 @@
 
 default subport {[portmain::get_default_subport]}
 proc portmain::get_default_subport {} {
-    global name
+    global name portpath
     if {[info exists name]} {
         return $name
     }
-    return ""
+    return [file tail $portpath]
 }
 default subbuildpath {[portmain::get_subbuildpath]}
 proc portmain::get_subbuildpath {} {
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20110422/5296fae1/attachment.html>