From 9d84ccf3a611f0e91ad95452f2e99388ffc5ca7f Mon Sep 17 00:00:00 2001
From: Alexander Bluhm <alexander.bluhm@gmx.net>
Date: Thu, 29 Aug 2024 14:38:00 +0200
Subject: [PATCH] Shorten long lines by using \t instead of tab in netstat
 print.

---
 Netstat.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/Netstat.pm b/Netstat.pm
index 96254cd..ab1142d 100644
--- a/Netstat.pm
+++ b/Netstat.pm
@@ -134,21 +134,21 @@ sub myprint {
 	    my $l2 = $l1->{$k};
 	    foreach my $k2 (sort keys %$l2) {
 		if (ref($l2->{$k2}) eq "HASH") {
-		    print $fh ("	$k2:\n");
+		    print $fh ("\t$k2:\n");
 		    my $l3 = $l2->{$k2};
 		    foreach my $k3 (sort keys %$l3) {
 			if (ref($l3->{$k3}) eq "HASH") {
 			    my $l4 = $l3->{$k3};
-			    print $fh ("		$k3:\n");
+			    print $fh ("\t\t$k3:\n");
 			    foreach my $k4 (sort keys %$l4) {
-				print $fh ("			$k4: $l4->{$k4}\n");
+				print $fh ("\t\t\t$k4: $l4->{$k4}\n");
 			    }
 			} else {
-			    print $fh ("		$k3: $l3->{$k3}\n");
+			    print $fh ("\t\t$k3: $l3->{$k3}\n");
 			}
 		    }
 		} else {
-		    print $fh ("	$k2: $l2->{$k2}\n");
+		    print $fh ("\t$k2: $l2->{$k2}\n");
 		}
 	    }
 	} else {