Subversion Repositories DevTools

Rev

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

Rev 7300 Rev 7304
Line 2094... Line 2094...
2094 
#                          text-mods="false"
 2094 
#                          text-mods="false"
2095 
#                          kind="dir"
 2095 
#                          kind="dir"
2096 
#                          copyfrom-path="/enqdef/branches/Stockholm"
 2096 
#                          copyfrom-path="/enqdef/branches/Stockholm"
2097 
#                          copyfrom-rev="24271"
 2097 
#                          copyfrom-rev="24271"
2098 
#                          action="A">/enqdef/tags/enqdef_24.0.1.sls</path>
 2098 
#                          action="A">/enqdef/tags/enqdef_24.0.1.sls</path>
2099 
#                       </paths>
 2099 
#                       </path>
2100 
#                       <msg>COTS/enqdef: Tagged by Jats Svn Import</msg>
 2100 
#                       <msg>COTS/enqdef: Tagged by Jats Svn Import</msg>
2101 
#                       </logentry>
 2101 
#                       </logentry>
2102 
#
 2102 
#
2103 
#
 2103 
#
2104 
#                   Uses:   $self->{btData}     - Scratch Data
 2104 
#                   Uses:   $self->{btData}     - Scratch Data
Line 2196... Line 2196...
2196 
#            Warning ("Cannot decode XML log: $line");
 2196 
#            Warning ("Cannot decode XML log: $line");
2197 
#        }
 2197 
#        }
2198 
 
 2198 
 
2199 
        if ( $end )
 2199 
        if ( $end )
2200 
        {
 2200 
        {
- 
 
 2201 
#DebugDumpData("AtEnd",$workSpace->{path});
2201 
            #
 2202 
            #
2202 
            #   If the Repo is created by a pre 1.6 SVN, then kind will be
 2203 
            #   If the Repo is created by a pre 1.6 SVN, then kind will be
2203 
            #   empty. Have a guess.
 2204 
            #   empty. Have a guess.
2204 
            #
 2205 
            #
2205 
            if ( $workSpace->{path}{'kind'} eq '' )
 2206 
            if ( $workSpace->{path}{'kind'} eq '' )
Line 2230... Line 2231...
2230 
                #       Remove the tag name - so that we can compare files
 2231 
                #       Remove the tag name - so that we can compare files
2231 
                #       Save the first instance of changed files
 2232 
                #       Save the first instance of changed files
2232 
                #           Others will be in older versions
 2233 
                #           Others will be in older versions
2233 
                #           and thus of no interest
 2234 
                #           and thus of no interest
2234 
                #
 2235 
                #
2235 
                #   Count the chnage sets that have changes
 2236 
                #   Count the change sets that have changes
2236 
                #   Having changes in multiple change sets indicates
 2237 
                #   Having changes in multiple change sets indicates
2237 
                #   development on a /tags/ - which is BAD
 2238 
                #   development on a /tags/ - which is BAD
2238 
                #
 2239 
                #
2239 
                $workSpace->{path}{'DATA'} =~ m~(.+)/((tags|branches|trunk)(/|$).*)~;
 2240 
                $workSpace->{path}{'DATA'} =~ m~(.+)/((tags|branches|trunk)(/|$).*)~;
2240 
                my $file =  $2;
 2241 
                my $file =  $2;
2241 
                my $full = $file;
 2242 
                my $full = $file;
2242 
                $file =~ s~^tags/(.+?)/~~;
 2243 
                $file =~ s~^tags/(.+?)/~~;
2243 
 
 2244 
 
2244 
                if ( ! exists $workSpace->{files}{$file}  )
 2245 
                if ( ! exists $workSpace->{files}{$file}  )
2245 
                {
 2246 
                {
2246 
                    push @{$workSpace->{results}{files}}, $full . '@' . $workSpace->{rev};
 2247 
                    push @{$workSpace->{results}{files}}, join($;, $full . '@' . $workSpace->{rev}, $workSpace->{path}{'action'});
2247 
                }
 2248 
                }
2248 
                $workSpace->{files}{$file}++;
 2249 
                $workSpace->{files}{$file}++;
2249 
                $workSpace->{firstFile} = $file unless ( defined $workSpace->{firstFile} );
 2250 
                $workSpace->{firstFile} = $file unless ( defined $workSpace->{firstFile} );
2250 
 
 2251 
 
2251 
                unless ( $workSpace->{changesSeen} )
 2252 
                unless ( $workSpace->{changesSeen} )