Fix variable shadowing

diff --git a/swg b/swg
index 570720cc9ec7142a3eb24be6b869cbb1fd0f25af..dca444f146979e0f68ba5f1bd313cb4e1d4267f4 100755 (executable)
--- 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;