autocommit script commands

1 files changed, 3 insertions, 1 deletions

diff --git a/_testing/_irssi_test.pl b/_testing/_irssi_test.pl
index e31a184..462d86b 100644
--- a/_testing/_irssi_test.pl
+++ b/_testing/_irssi_test.pl
@@ -49,7 +49,7 @@ my @modules = grep {
 	&& !Module::CoreList->first_release($_)
 } sort keys %{ $prereq_results->as_string_hash };
 
-my (%info, $version);
+my (%info, $version, @commands);
 unless (defined $package) {
     my %fail = (failed => 1, name => $CURRENT_SCRIPT);
     $fail{modules} = \@modules if @modules;
@@ -68,6 +68,7 @@ unless (defined $package) {
 else {
     %info = do { no strict 'refs'; %{"Irssi::Script::${package}IRSSI"} };
     $version = do { no strict 'refs'; ${"Irssi::Script::${package}VERSION"} };
+    @commands = sort map { $_->{cmd} } grep { $_->{category} eq "Perl scripts' commands" } Irssi::commands;
 }
 delete $info{''};
 for my $rb (keys %info) {
@@ -94,5 +95,6 @@ if ($loginfo) {
     $info{modified} = "$date $time";
 }
 $info{modules} = \@modules if @modules;
+$info{commands} = \@commands if @commands;
 $info{default_package} = $package =~ s/::$//r if $package;
 YAML::Tiny::DumpFile("info.yml", [\%info]);