From e3dac38771fe8c06e4c19c42403f7fb9b7f09da8 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Fri, 19 Jun 2015 03:04:16 +0200
Subject: [PATCH] sc: simplify code by concatenating all showattack() output

---
 sc.plp | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/sc.plp b/sc.plp
index 08cbc45..c8be6c7 100644
--- a/sc.plp
+++ b/sc.plp
@@ -113,19 +113,19 @@ sub showrange {
 		my $attack = $row->{attack}->[$area]
 			or return '<td colspan=4 class="hurt">';
 
-		my $tagbase = '';
-		$tagbase .= '<td class="unit hurt-g">' . '▽' x !!($attack->{anti} & 1);
-		$tagbase .= '<td class="unit hurt-a">' . '△' x !!($attack->{anti} & 2);
-		$tagbase .= '<td class="val hurt';
+		my $out = '';
+		$out .= '<td class="unit hurt-g">' . '▽' x !!($attack->{anti} & 1);
+		$out .= '<td class="unit hurt-a">' . '△' x !!($attack->{anti} & 2);
+		$out .= '<td class="val hurt';
 		if (ref $attack and $attack->{type}) {
 			if ($attack->{type} eq 'explosive') {
-				$tagbase .= ' unit-l';
+				$out .= ' unit-l';
 			}
 			elsif ($attack->{type} eq 'implosive') {
-				$tagbase .= ' unit-s';
+				$out .= ' unit-s';
 			}
 		}
-		$tagbase .= '">';
+		$out .= '">';
 
 		my $upattack = $row->{upgraded}->{attack}->[$area];
 		my $maxdamage =
@@ -133,7 +133,7 @@ sub showrange {
 		($damage, $maxdamage) = ($damage->[0], $upattack->{damage} // $damage->[-1])
 			if ref $damage;
 
-		my $out = showrange($damage, $maxdamage);
+		$out .= showrange($damage, $maxdamage);
 		$out .= sprintf('<span class="unit-splash" title="%s">%s</span>',
 			$attack->{splash} eq 'line' ? ('linear', '×') : ('splash', '+')
 		) if $attack->{splash};
@@ -154,7 +154,7 @@ sub showrange {
 			$out .= showrange($damage, $maxdamage);
 		}
 
-		return $tagbase . $out;
+		return $out;
 	}
 
 	sub showmagic {
-- 
2.30.0