Subversion Repositories DevTools

Rev

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

Rev 7387 Rev 7460
Line 179... Line 179...
179 
        $logger->verbose3( "Config File Age: $age, $conf->{maxFileAge}");
 179 
        $logger->verbose3( "Config File Age: $age, $conf->{maxFileAge}");
180 
        if ( $age > $conf->{maxFileAge} )
 180 
        if ( $age > $conf->{maxFileAge} )
181 
        {
 181 
        {
182 
            $logger->verbose ("File is OLD: $tagfile, $age");
 182 
            $logger->verbose ("File is OLD: $tagfile, $age");
183 
            unlink $tagfile;
 183 
            unlink $tagfile;
- 
 
 184 
            unlink glob (catfile($opt_tagdir, $tag) .  '*::*');
184 
            next;
 185 
            next;
185 
        }
 186 
        }
186 
 
 187 
 
187 
        #
 188 
        #
188 
        #   Read in the config file
 189 
        #   Read in the config file