commit 2035708f1161cc9210ff5165c6636fe697a94db7
from: Omar Polo <op@omarpolo.com>
date: Tue Feb 08 17:56:33 2022 UTC

fix san: take the string via @_, not implicitly via $_

commit - 8a8ff32cf8898e9ee9f4654f114d964e543756ce
commit + 2035708f1161cc9210ff5165c6636fe697a94db7
blob - 98c52f281586f88cff3f747e13736da2c94dd637
blob + 060320484c9da4d15466f0e6bc935f46867dea5e
--- gem2html
+++ gem2html
@@ -47,8 +47,7 @@ while (<>) {
 			say "<ul class='link-list'>";
 		}
 		my $href = $1;
-		$_ = $2 || $1;
-		say "<li><a href='$href'>". san() ."</a></li>";
+		say "<li><a href='$href'>". san($2 || $1) ."</a></li>";
 	} elsif (m/^###\s*(.*)$/) {
 		output("h3", $1);
 	} elsif (m/^##\s*(.*)$/) {
@@ -63,6 +62,7 @@ while (<>) {
 }
 
 sub san {
+	$_ = shift;
 	s/&/\&amp;/g;
 	s/</\&lt;/g;
 	s/>/\&gt;/g;
@@ -86,6 +86,5 @@ sub output {
 		return;
 	}
 
-	$_ = $content;
-	say "<$tn>". san() ."</$tn>";
+	say "<$tn>". san($content) ."</$tn>";
 }