174 { 175 $CONFIG{'verbose'} && print "Excluded mail file: $file\n"; 176 return; 177 } 178 } 179 180 181 # 182 # Skip files if they've not been modified too recently. 183 # 184 my $time = -M $file; 185 if ( defined( $time ) ) 186 { 187 if ( $time > $CONFIG{'time'} ) 188 { 189 $CONFIG{'verbose'} && print "Mail file not modified recently: $file\n"; 190 return; 191 } 192 } 193 else 194 { 195 $CONFIG{'verbose'} && print "Failed to stat: $file - $!\n";