better package detection for multi-scripts

diff --git a/_testing/_irssi_test.pl b/_testing/_irssi_test.pl
index aeeb1d1387f3a498e286fb8be0e5dcfcc3230ddf..f1eb9989a58753dfba480669c7fa0faac7891afa 100644 (file)
--- 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");