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=> <a href=\"$1\">$t</a>"; + $_ = "$head=> <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;