From 4b90522231ee1500f9cd69c85c0536df0a38e17f Mon Sep 17 00:00:00 2001
From: Warren Toomey <wkt@tuhs.org>
Date: Thu, 10 Mar 2016 12:56:51 +1000
Subject: [PATCH] Fix list output logic.

---
 tools/mkfs7 | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/tools/mkfs7 b/tools/mkfs7
index fa3fa2d..62b9182 100755
--- a/tools/mkfs7
+++ b/tools/mkfs7
@@ -454,17 +454,16 @@ sub dump_image {
     # list: Octal output with block comments
     if ( $format eq "list" ) {
         foreach my $blocknum ( 0 .. NUMBLOCKS - 1 ) {
-            printf( $OUT "Block %d (%06o)\n", $blocknum, $blocknum )
-              if ($debug);
+            printf( $OUT "Block %d (%06o)\n", $blocknum, $blocknum );
             foreach my $line ( 0 .. 7 ) {
                 foreach my $offset ( 0 .. 7 ) {
                     printf( $OUT "%06o ",
                         $Block[$blocknum][ 8 * $line + $offset ] || 0
                     );
                 }
-                print( $OUT "\n" ) if ($debug);
+                print( $OUT "\n" );
             }
-            print( $OUT "\n" ) if ($debug);
+            print( $OUT "\n" );
         }
     }