From a3ee2cf2b5d41d09aba945228dda4d15820e890b Mon Sep 17 00:00:00 2001
From: Ailin Nemui
Date: Sat, 6 Feb 2016 00:32:52 +0100
Subject: better package detection for multi-scripts

---
 _testing/_irssi_test.pl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/_testing/_irssi_test.pl b/_testing/_irssi_test.pl
index aeeb1d1..f1eb998 100644
--- a/_testing/_irssi_test.pl
+++ b/_testing/_irssi_test.pl
@@ -15,7 +15,12 @@ Irssi::command('^window log on');
 Irssi::command("script load $CURRENT_SCRIPT");
 Irssi::command('^window log off');
 
-my ($package) = grep { !/^_/ } keys %Irssi::Script::;
+my (@packages) = grep { !/^_/ } keys %Irssi::Script::;
+my $tp = $CURRENT_SCRIPT; $tp =~ s/^.*\///; $tp =~ s/\W/_/g; my @tmp;
+if ((@tmp = grep /^\Q$tp\E::/, @packages) or (@tmp = grep /^\Q$tp\E/, @packages)) {
+    @packages = @tmp;
+}
+my ($package) = @packages;
 
 require YAML::Tiny;
 YAML::Tiny->VERSION("1.59");
-- 
cgit v1.2.3