Subversion Repositories DevTools

Rev

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

Rev 1453 Rev 1454
Line 1013... Line 1013...
1013 
        {
 1013 
        {
1014 
            my ($entry) = @_;
 1014 
            my ($entry) = @_;
1015 
 
 1015 
 
1016 
            return 0 unless ( exists $versions{$entry} );
 1016 
            return 0 unless ( exists $versions{$entry} );
1017 
            return 0 unless ( $versions{$entry}{last} );
 1017 
            return 0 unless ( $versions{$entry}{last} );
1018 
            return 0 if ( ($pruneMode == 2) && exists $versions{$entry}{KeepMe} );
 1018 
#            return 0 if ( ($pruneMode == 2) && exists $versions{$entry}{KeepMe} );
- 
 
 1019 
            return 0 if ( exists $versions{$entry}{KeepMe} );
1019 
            return 0 if ( exists $versions{$entry}{Essential} );
 1020 
            return 0 if ( exists $versions{$entry}{Essential} );
1020 
            return 0 if ( $versions{$entry}{newSuffix} );
 1021 
            return 0 if ( $versions{$entry}{newSuffix} );
1021 
            return 0 if ( $versions{$entry}{newSuffix} && (exists $versions{$entry}{EssentialPath}) );
 1022 
            return 0 if ( $versions{$entry}{newSuffix} && (exists $versions{$entry}{EssentialPath}) );
1022 
#            return 1 if ( exists $versions{$entry}{DeadWood} );
 1023 
#            return 1 if ( exists $versions{$entry}{DeadWood} );
1023 
            return 0 if ( exists $versions{$entry}{EssentialSplitPoint} && $versions{$entry}{EssentialSplitPoint} > 1 );
 1024 
            return 0 if ( exists $versions{$entry}{EssentialSplitPoint} && $versions{$entry}{EssentialSplitPoint} > 1 );