349 |
&updateLock( $count, $total ); |
&updateLock( $count, $total ); |
350 |
} |
} |
351 |
|
|
352 |
|
# |
353 |
|
# Skip file if it's 0-bytes. Dunno why people |
354 |
|
# would want to do this, but I've had reports.. |
355 |
|
# |
356 |
|
my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, |
357 |
|
$atime,$mtime,$ctime,$blksize,$blocks); |
358 |
|
|
359 |
|
($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, |
360 |
|
$atime,$mtime,$ctime,$blksize,$blocks) = stat($file); |
361 |
|
next if ( $size < 1 ); |
362 |
|
|
363 |
|
|
364 |
# Holder for the tags within the files. |
# Holder for the tags within the files. |
365 |
my %TAGS; |
my %TAGS; |