[PATCH 5.9 34/49] ktest.pl: Fix the logic for truncating the size of the log file for email

[Greg Kroah-Hartman]

From: Steven Rostedt (VMware) <rost...@goodmis.org>

commit 170f4869e66275f498ae4736106fb54c0fdcd036 upstream.

The logic for truncating the log file for emailing based on the
MAIL_MAX_SIZE option is confusing and incorrect. Simplify it and have the
tail of the log file truncated to the max size specified in the config.

Cc: sta...@vger.kernel.org
Fixes: 855d8abd2e8ff ("ktest.pl: Change the logic to control the size of the 
log file emailed")
Signed-off-by: Steven Rostedt (VMware) <rost...@goodmis.org>
Signed-off-by: Greg Kroah-Hartman <gre...@linuxfoundation.org>

---
 tools/testing/ktest/ktest.pl |   13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

--- a/tools/testing/ktest/ktest.pl
+++ b/tools/testing/ktest/ktest.pl
@@ -1499,17 +1499,16 @@ sub dodie {
        my $log_file;
 
        if (defined($opt{"LOG_FILE"})) {
-           my $whence = 0; # beginning of file
-           my $pos = $test_log_start;
+           my $whence = 2; # End of file
+           my $log_size = tell LOG;
+           my $size = $log_size - $test_log_start;
 
            if (defined($mail_max_size)) {
-               my $log_size = tell LOG;
-               $log_size -= $test_log_start;
-               if ($log_size > $mail_max_size) {
-                   $whence = 2; # end of file
-                   $pos = - $mail_max_size;
+               if ($size > $mail_max_size) {
+                   $size = $mail_max_size;
                }
            }
+           my $pos = - $size;
            $log_file = "$tmpdir/log";
            open (L, "$opt{LOG_FILE}") or die "Can't open $opt{LOG_FILE} to 
read)";
            open (O, "> $tmpdir/log") or die "Can't open $tmpdir/log\n";