Subversion Repositories DevTools

Rev

Rev 3043 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3043 Rev 3345
Line 2174... Line 2174...
2174 
 
 2174 
 
2175 
            if ( $workSpace->{path}{'kind'} eq 'dir' &&  exists $workSpace->{path}{'copyfrom-path'} )
 2175 
            if ( $workSpace->{path}{'kind'} eq 'dir' &&  exists $workSpace->{path}{'copyfrom-path'} )
2176 
            {
 2176 
            {
2177 
                my $srev = $workSpace->{path}{'copyfrom-rev'};
 2177 
                my $srev = $workSpace->{path}{'copyfrom-rev'};
2178 
                my $from = $workSpace->{path}{'copyfrom-path'};
 2178 
                my $from = $workSpace->{path}{'copyfrom-path'};
2179 
                if ( $from =~ m~/trunk$~ || $from =~ m~/branches/[^/]+$~ )
 2179 
                if ( $from =~ m~/trunk$~ || $from =~ m~/branches/[^/]+~ )
2180 
                {
 2180 
                {
2181 
                    $workSpace->{devBranch} = $from . '@' . $srev;
 2181 
                    $workSpace->{devBranch} = $from . '@' . $srev;
2182 
                }
 2182 
                }
2183 
            }
 2183 
            }
2184 
 
 2184