Changeset 18810 for trunk/base


Ignore:
Timestamp:
Jul 30, 2006, 1:08:33 AM (14 years ago)
Author:
pguyot (Paul Guyot)
Message:

Fixed a bug introduced with latest changes where fetch would fail if the method
was cvs (or svn) and there was one (or more) local patchfile(s).

Test case:
port fetch emacs-devel

File:
1 edited

Legend:

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

    r18771 r18810  
    11# et:ts=4
    22# portfetch.tcl
    3 # $Id: portfetch.tcl,v 1.114 2006/07/27 23:49:48 pguyot Exp $
     3# $Id: portfetch.tcl,v 1.115 2006/07/30 01:08:33 pguyot Exp $
    44#
    55# Copyright (c) 2002 - 2003 Apple Computer, Inc.
     
    244244# Checks patch files and their tags to assemble url lists for later fetching
    245245proc checkpatchfiles {args} {
    246     global patchfiles all_dist_files patch_sites fetch_urls \
    247         filespath
     246    global patchfiles all_dist_files patch_sites fetch_urls filespath
    248247   
    249248    if {[info exists patchfiles]} {
     
    288287# This method is used by distcheck target.
    289288proc checkfiles {args} {
     289        # Set fetch_urls to be empty in case there is no file to fetch.
     290        global fetch_urls
     291        set fetch_urls {}
    290292        checksites
    291293        checkpatchfiles
     
    299301    global workpath cvs.env cvs.cmd cvs.args cvs.post_args
    300302    global cvs.root cvs.date cvs.tag cvs.password
    301     global patch_sites patchfiles filespath fetch_urls
     303    global patch_sites patchfiles filespath
    302304
    303305    set cvs.args "co ${cvs.args}"
Note: See TracChangeset for help on using the changeset viewer.