Ignore:
Timestamp:
Dec 9, 2002, 1:32:44 AM (18 years ago)
Author:
landonf (Landon Fuller)
Message:

Respect workpath and worksrcpath everywhere, as it is not promised to be in ${portpath}

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portpatch.tcl

    r1139 r1360  
    4343commands patch
    4444# Set up defaults
    45 default patch.dir {${workpath}/${worksrcdir}}
     45default patch.dir {${worksrcpath}}
    4646default patch.cmd patch
    4747default patch.pre_args -p0
    4848
    4949proc patch_main {args} {
    50     global portname patchfiles distpath filedir workdir worksrcdir portpath UI_PREFIX
     50    global portname patchfiles distpath filespath workpath worksrcpath UI_PREFIX
    5151
    5252    # First make sure that patchfiles exists and isn't stubbed out.
     
    5656
    5757    foreach patch $patchfiles {
    58         if [file exists $portpath/$filedir/$patch] {
    59             lappend patchlist $portpath/$filedir/$patch
     58        if [file exists $filespath/$patch] {
     59            lappend patchlist $filespath/$patch
    6060        } elseif [file exists $distpath/$patch] {
    6161            lappend patchlist $distpath/$patch
     
    6565        return -code error "Patch files missing"
    6666    }
    67     cd $portpath/$workdir/${worksrcdir}
     67    cd ${worksrcpath}
    6868    foreach patch $patchlist {
    6969        ui_info "$UI_PREFIX Applying $patch"
Note: See TracChangeset for help on using the changeset viewer.