From 14d4087ed3e61af8a380168f2be59f2d23f6acca Mon Sep 17 00:00:00 2001
From: Bart Van Assche <bvanassche@acm.org>
Date: Thu, 1 Nov 2018 04:41:17 +0000
Subject: [PATCH] scstadmin: Align exports columns properly

git-svn-id: http://svn.code.sf.net/p/scst/svn/branches/3.3.x@7586 d57e44dd-8a1f-0410-8b47-8ef2f437770f
---
 scstadmin/scstadmin.sysfs/scstadmin | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/scstadmin/scstadmin.sysfs/scstadmin b/scstadmin/scstadmin.sysfs/scstadmin
index 540d371e3..470c14084 100755
--- a/scstadmin/scstadmin.sysfs/scstadmin
+++ b/scstadmin/scstadmin.sysfs/scstadmin
@@ -3556,9 +3556,9 @@ sub listExported {
 	if (keys %{$$attributes{'exported'}}) {
 		my $exported = $$attributes{'exported'}->{'value'};
 
-		my $l_driver;
-		my $l_target;
-		my $l_group;
+		my $l_driver = length('Driver');
+		my $l_target = length('Target');
+		my $l_group  = length('Group');
 
 		foreach my $driver (keys %{$exported}) {
 			$l_driver = length($driver)
@@ -3579,9 +3579,7 @@ sub listExported {
 		printf("\t%-*s %-*s %-*s %-4s\n", $l_driver, 'Driver', $l_target, 'Target',
 		  $l_group, 'Group', 'Lun');
 		print "\t";
-		for (my $x = 0; $x < ($l_driver + $l_target + $l_group + 5); $x++) {
-			print "-";
-		}
+		print join("", "-" x ($l_driver + $l_target + $l_group + 6));
 		print "\n";
 
 		foreach my $driver (sort keys %{$exported}) {