From 0d66f87241fd136c1d5236eed62c5dad1d6e0bba Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Fri, 7 May 2021 01:03:48 +0200
Subject: Don't use lexical $a

---
 run/irc | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/run/irc b/run/irc
index c69af13..a77d8b2 100755
--- a/run/irc
+++ b/run/irc
@@ -10,12 +10,12 @@ $ua->ssl_opts(verify_hostname => 0);
 $ua->env_proxy;
 $ua->agent('');
 
-my $a = 'https://netsplit.de/channels/details.php?room=%23perl&net=freenode';
-my $r = $ua->get($a);
+my $u = 'https://netsplit.de/channels/details.php?room=%23perl&net=freenode';
+my $r = $ua->get($u);
 die $r->status_line if not $r->is_success;
 
 if ($r->decoded_content =~ m{<img border="0" src="(/tmp/channels/.*?\.png)" alt="(.*?)"}) {
 	print <<HTML;
-<a href="$a"><img border="0" src="https://netsplit.de$1" alt="$2"/></a>
+<a href="$u"><img border="0" src="https://netsplit.de$1" alt="$2"/></a>
 HTML
 }
-- 
cgit v1.2.3