Changeset 88


Ignore:
Timestamp:
Aug 4, 2002, 9:59:59 AM (17 years ago)
Author:
landonf
Message:

Use portpath properly

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/Tcl/port1.0/portextract.tcl

    r85 r88  
    1717
    1818proc portextract::main {args} {
    19         global portname portpath portdir workdir distname distpath distfiles use_bzip2
     19        global portname portpath portpath workdir distname distpath distfiles use_bzip2
    2020
    2121        # Set up defaults
     
    3131                setval portextract::options extract.cmd unzip
    3232                setval portextract::options extract.before_args -q
    33                 setval portextract::options extract.after_args -d $portdir/$workdir
     33                setval portextract::options extract.after_args -d $portpath/$workdir
    3434        }
    3535
    3636        puts "Extracting for $distname"
    3737        if [file exists $workdir] {
    38                 file delete -force $portdir/$workdir
     38                file delete -force $portpath/$workdir
    3939        }
    4040
    41         file mkdir $portdir/$workdir
    42         cd $portdir/$workdir
     41        file mkdir $portpath/$workdir
     42        cd $portpath/$workdir
    4343        foreach distfile [getval portextract::options extract.only] {
    4444                puts -nonewline "$distfile: "
Note: See TracChangeset for help on using the changeset viewer.