From: Pablo Martín Báez Echevarría <redacted>
Date: Sun, 21 Dec 2014 21:39:13 +0000 (-0200)
Subject: Fix conditional sub that isn't actually conditional
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=2ce65b858faa73ed871b1df18ef06e3282c5c032;p=irssi-scripts.irssi.org.git

Fix conditional sub that isn't actually conditional
---

diff --git a/_data/scripts.yaml b/_data/scripts.yaml
index b17615a..8ba79a8 100644
--- a/_data/scripts.yaml
+++ b/_data/scripts.yaml
@@ -905,7 +905,7 @@
   license: "Public domain"
   name: "clones_scannner"
   url: "http://reirssi.wordpress.com"
-  version: "1.5"
+  version: "1.6"
 
 - authors: "Gabor Nyeki"
   contact: "bigmac@vim.hu"
diff --git a/scripts/clones_scanner.pl b/scripts/clones_scanner.pl
index 1f31fbb..bf308a0 100644
--- a/scripts/clones_scanner.pl
+++ b/scripts/clones_scanner.pl
@@ -7,9 +7,11 @@ use warnings;
 use Irssi;
 use vars qw($VERSION %IRSSI);
 
-# Thanks to noi_esportista!#Girona@chathispano for his suggestions about how this script should work.
+# Thanks to:
+# -noi_esportista!#Girona@chathispano for his suggestions about how this script should work.
+# -dg!#irssi@freenode (David Leadbeater) for the several code style issues that he pointed out and that helped me to improve my Perl.
 
-$VERSION = '1.5';
+$VERSION = '1.6';
 %IRSSI = (
 	authors     => 'Pablo Martín Báez Echevarría',
 	contact     => 'pab_24n@outlook.com',
@@ -266,15 +268,12 @@ Irssi::theme_register([
 
 if ($have_devel_size) {
   
-  sub clones_scanner_size_cmd {
-    #use Data::Dumper;
-    #print Dumper(\%hosts_hash);
+  Irssi::command_bind('clones_scanner_size' , sub {
     my $bytes = Devel::Size::total_size(\%hosts_hash);
     print "Number of entries in \%hosts_hash: ", $total_entries;
-    print "Size in bytes: ".$bytes;
+    print "Size in bytes: ", $bytes;
     print int($bytes/1024/1024)."MB ".int($bytes/1024%1024)."kB ".int($bytes%1024)."B of data";
-  }
-  Irssi::command_bind('clones_scanner_size' , \&clones_scanner_size_cmd);
+  });
 
 } else {