summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xlatest.pl6
1 files changed, 5 insertions, 1 deletions
diff --git a/latest.pl b/latest.pl
index 60d4a06..4975a0a 100755
--- a/latest.pl
+++ b/latest.pl
@@ -32,7 +32,6 @@ sub process($){
while (readdir DIR) {
next unless /wav$/;
$c += 1;
- last;
}
closedir DIR;
@@ -52,6 +51,11 @@ sub process($){
if (! $epoch[0]) {
return 0;
}
+
+ if (! $opt_l) {
+ print $name . ", $c samples\n";
+ }
+
$epoch[0] =~ /(\d+)/;
if ($1 < 4) {
return 0;