Update quitmsg.pl

diff --git a/scripts/quitmsg.pl b/scripts/quitmsg.pl
index 2e943ee615949aa4a66b1c3b98c92d4518daf18c..102d9aa5c42d6d6245d7b86445561e79b9af7473 100644 (file)
--- a/scripts/quitmsg.pl
+++ b/scripts/quitmsg.pl
@@ -12,10 +12,10 @@ $VERSION = "1.01";
     name        => 'quitmsg',
     description => 'Random quit messages',
     license     => 'Public Domain',
-    changed    => 'Mon Jul 13 18:00 EET 2020'
+    changed    => 'Mon Jul 22 20:00 EET 2020'
 );
 
-my $quitfile = glob "~/.irssi/irssi.quit";
+my $quitfile = Irssi::get_irssi_dir() . "/irssi.quit";
 
 sub cmd_quit {
        my ($data, $server, $channel) = @_;
@@ -24,7 +24,7 @@ sub cmd_quit {
        open (my $fh, "<", $quitfile) || return;
        my @lines = <$fh>;
 
-       my $quitmsg = $lines[int(rand(@lines))+1];
+       my $quitmsg = $lines[int(rand(@lines))];
        chomp($quitmsg);
        close($fh);