Changeset 38642


Ignore:
Timestamp:
Jul 26, 2008, 4:37:06 PM (11 years ago)
Author:
pmagrath@…
Message:

Fix port clean of distfiles when altprefix is in use.

Location:
branches/gsoc08-privileges/base/src/port1.0
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/gsoc08-privileges/base/src/port1.0/portclean.tcl

    r38640 r38642  
    144144                ui_debug "$count distfile(s) removed."
    145145        } else {
    146                 ui_debug "No distfiles found to remove."
     146                ui_debug "No distfiles found to remove at $distpath"
    147147        }
    148148
     
    255255                ui_debug "$count archive(s) removed."
    256256        } else {
    257                 ui_debug "No archives found to remove."
    258         }
    259 
    260         return 0
    261 }
    262 
     257                ui_debug "No archives found to remove at $archivepath"
     258        }
     259
     260        return 0
     261}
     262
  • branches/gsoc08-privileges/base/src/port1.0/portutil.tcl

    r38641 r38642  
    13971397proc open_statefile {args} {
    13981398    global workpath worksymlink place_worksymlink portname portpath ports_ignore_older
    1399     global altprefix macportsuser euid egid usealtworkpath env applications_dir portbuildpath
     1399    global altprefix macportsuser euid egid usealtworkpath env applications_dir portbuildpath distpath
    14001400   
    14011401        # start gsoc08-privileges
     
    14601460                set newworksymlink "$altprefix/[ string range $worksymlink 1 end ]"
    14611461                set newportbuildpath "$altprefix/[ string range $portbuildpath 1 end ]"
     1462                set newdistpath "$altprefix/[ string range $distpath 1 end ]"
    14621463               
    14631464                set sourcepath [string map {"work" ""} $worksymlink]
     
    14801481                set worksymlink $newworksymlink
    14811482                set portbuildpath $newportbuildpath
     1483                set distpath $newdistpath
    14821484               
    14831485                ui_debug "Going to use $newworkpath for statefile."
Note: See TracChangeset for help on using the changeset viewer.