Subversion Repositories DevTools

Rev

Rev 7304 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7304 Rev 7320
Line 106... Line 106...
106 
 
 106 
 
107 
    #   Define RE to be used to test extraction
 107 
    #   Define RE to be used to test extraction
108 
    #       Bad news: Some Cots packages have /tags/
 108 
    #       Bad news: Some Cots packages have /tags/
109 
    #       Kludge  : Allow /tags/ in escrow mode
 109 
    #       Kludge  : Allow /tags/ in escrow mode
110 
    #
 110 
    #
111 
    $self->{CoRe} = '((/)(tags|branches|trunk)(/|$))';
 111 
#    $self->{CoRe} = '((/)(tags|branches|trunk)(/|$))';
112 
    $self->{CoRe} =~ s~tags\|~~ if ( $opt{escrow} );
 112 
#    $self->{CoRe} =~ s~tags\|~~ if ( $opt{escrow} );
- 
 
 113 
    $self->{CoRe} = '((/)(branches|trunk)(/|$))';
113
114
114 
    #
 115 
    #
115 
    #   Ensure that the output path does not exist
 116 
    #   Ensure that the output path does not exist
116 
    #   Do not allow the user to create a local work space
 117 
    #   Do not allow the user to create a local work space
117 
    #   where one already exists
 118 
    #   where one already exists