From: martin f. krafft <redacted>
Date: Mon, 20 Sep 2021 02:35:50 +0000 (+0200)
Subject: Do not store version reference in %IRSSI/$VERSION
X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=8e45994e31379aa3d8aa5028e279b5fe038a167c;p=irssi-scripts.irssi.org.git

Do not store version reference in %IRSSI/$VERSION

Signed-off-by: martin f. krafft <redacted>
---

diff --git a/scripts/ctrlact.pl b/scripts/ctrlact.pl
index 90c9d7b..1a59bf6 100644
--- a/scripts/ctrlact.pl
+++ b/scripts/ctrlact.pl
@@ -121,8 +121,6 @@ use Irssi;
 use Text::ParseWords;
 use version;
 
-our $VERSION = version->parse('1.5');
-
 our %IRSSI = (
     authors     => 'martin f. krafft',
     contact     => 'madduck@madduck.net',
@@ -130,10 +128,13 @@ our %IRSSI = (
     description => 'allows per-channel control over activity indication',
     license     => 'MIT',
     url         => 'https://github.com/irssi/scripts.irssi.org/blob/master/scripts/ctrlact.pl',
-    version     => $VERSION,
+    version     => '1.5',
     changed     => '2021-09-20'
 );
 
+our $VERSION = $IRSSI{version};
+my $_VERSION = version->parse($VERSION);
+
 ### DEFAULTS AND SETTINGS ######################################################
 
 my @DATALEVEL_KEYWORDS = ('all', 'messages', 'hilights', 'none');
@@ -646,7 +647,7 @@ sub save_mappings {
 	my $ftc = from_data_level($fallback_channel_threshold);
 	my $ftq = from_data_level($fallback_query_threshold);
 	print FH <<"EOF";
-# ctrlact mappings file (version: $VERSION)
+# ctrlact mappings file (version: $_VERSION)
 #
 # WARNING: this file will be overwritten on /save,
 # use "/set ctrlact_autosave off" to avoid.
@@ -945,7 +946,7 @@ sub UNLOAD {
 sub cmd_help {
 	my ($data, $server, $item) = @_;
 	Irssi::print (<<"SCRIPTHELP_EOF", MSGLEVEL_CLIENTCRAP);
-%_ctrlact $VERSION - fine-grained control of activity indication%_
+%_ctrlact $_VERSION - fine-grained control of activity indication%_
 
 %U%_Synopsis%_%U