Make handling of child process death consistent.

[flac-archive] / flac2mp3

diff --git a/flac2mp3 b/flac2mp3
index 73df9b66ca102c47b5a3bf8dbeb772dfe06856f0..3bdfa718344c11fe4cbd8340f745160659206776 100755 (executable)
--- a/flac2mp3
+++ b/flac2mp3
@@ -25,10 +25,7 @@ use warnings;
 use Pod::Usage;
 
 sub tformat {
-    my $min = shift;
-    my $sec = shift;
-    my $hun = shift;
-    return "$min:$sec.$hun";
+    return sprintf('%02d:%02d.%02d', @_);
 }
 
 sub get_decode_args {
@@ -48,10 +45,10 @@ sub get_decode_args {
         if (defined($next)) {
             if ($next->[2] == 0) {
                 if ($next->[1] == 0) {
-                    push(@$arg, '--until=' . tformat($next->[0] - 1, 59, 99));
+                    push(@$arg, '--until=' . tformat($next->[0] - 1, 59, 74));
                 } else {
                     push(@$arg, '--until=' . tformat($next->[0], $next->[1] - 1,
-                                                    99));
+                                                    74));
                 }
             } else {
                 push(@$arg, '--until=' . tformat($next->[0], $next->[1],
@@ -88,7 +85,7 @@ sub get_tags {
             $album = $value;
         } elsif (/^DATE=/) {
             $date = $value;
-        } elsif (/TITLE=/) {
+        } elsif (/TITLE/) {
             push(@titles, $value);
         }
     }