From 0e18627177620006fb25446382466f94df601c4d Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Sun, 29 Apr 2018 00:15:51 +0300
Subject: [PATCH] img-save.pl: fix typos, now it actually downloads links

---
 web_link_saver/img-save.pl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/web_link_saver/img-save.pl b/web_link_saver/img-save.pl
index 72ae3de..5d07ec1 100644
--- a/web_link_saver/img-save.pl
+++ b/web_link_saver/img-save.pl
@@ -92,13 +92,13 @@ if (($HTINY == 0) or ($HTINYS == 0)) {
 # print "* wget detected at $wgetpath.\n";
 
 while ( 1 ) {
-	my $memd = new Cache::Memcached { 'servers' => [ "$mc" ] };
+	my $memd = new Cache::Memcached { 'servers' => [ $mc ] };
 	my $itemref = $memd->stats(['items']);
 
-	if (defined($itemref->{'hosts'}->{'$mc'}->{'items'})
-	        and (length($itemref->{'hosts'}->{'$mc'}->{'items'}) > 2)) {
+	if (defined($itemref->{'hosts'}->{$mc}->{'items'})
+	        and (length($itemref->{'hosts'}->{$mc}->{'items'}) > 2)) {
 
-		foreach my $stat (split("\n", $itemref->{'hosts'}->{'$mc'}->{'items'})) {
+		foreach my $stat (split("\n", $itemref->{'hosts'}->{$mc}->{'items'})) {
 			my $slab;
 			my $itemsamount;
 
@@ -114,7 +114,7 @@ while ( 1 ) {
 			my $cachedump = $memd->stats(["cachedump $slab $itemsamount"]);
 			my @keys = map {
 				(split(/ /))[1];
-			} split(/\n/, $cachedump->{'hosts'}->{'$mc'}->{"cachedump $slab $itemsamount"});
+			} split(/\n/, $cachedump->{'hosts'}->{$mc}->{"cachedump $slab $itemsamount"});
 
 			foreach my $key (@keys) {
 				if (($key =~ /^irssi_/) or ($key =~ /^xchtlink_/)) {