From: Sergey Matveev <stargrave@stargrave.org>
Date: Sun, 1 Jun 2025 12:33:31 +0000 (+0300)
Subject: Fix variable shadowing
X-Git-Tag: v1.0.0~7
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=b4477c97a5441c704c710df14a530291033da40a;p=swg.git

Fix variable shadowing
---

diff --git a/swg b/swg
index 570720c..dca444f 100755
--- a/swg
+++ b/swg
@@ -274,27 +274,31 @@ END_HTML
                 $cmd = $2;
             }
             if ($cmd =~ /^=> (\S+)\s?(.*)$/) {
+                my $url = $1;
                 my $t = ($2 eq q{}) ? $1 : $2;
                 $t = htmlescape $t;
                 $t =~ s/"/\&guot;/g;
-                $_ = "$head=&gt; <a href=\"$1\">$t</a>";
+                $_ = "$head=&gt; <a href=\"$url\">$t</a>";
             } elsif ($cmd =~ /^img (\S+)\s?(.*) => (\S+)$/) {
                 if ($2 eq q{}) {
                     $_ = "$head<a href=\"$3\"><img src=\"$1\" /></a>";
                 } else {
+                    my $urlImg = $1;
+                    my $urlA = $3;
                     my $t = $2;
                     $t = htmlescape $t;
                     $t =~ s/"/\&guot;/g;
-                    $_ = "$head<a href=\"$3\"><img src=\"$1\" alt=\"$t\" /></a>";
+                    $_ = "$head<a href=\"$urlA\"><img src=\"$urlImg\" alt=\"$t\" /></a>";
                 }
             } elsif ($cmd =~ /^img (\S+)\s?(.*)$/) {
                 if ($2 eq q{}) {
                     $_ = "$head<img src=\"$1\" />";
                 } else {
+                    my $url = $1;
                     my $t = $2;
                     $t = htmlescape $t;
                     $t =~ s/"/\&guot;/g;
-                    $_ = "$head<img src=\"$1\" alt=\"$t\" />";
+                    $_ = "$head<img src=\"$url\" alt=\"$t\" />";
                 }
             } elsif ($cmd eq q{do-backs}) {
                 $doBacks = 1;