autocommit script commands

diff --git a/_testing/_irssi_test.pl b/_testing/_irssi_test.pl
index e31a18412d6aae004de05412959c112bf5d510ed..462d86b74ae8fbdd3b753dd980305e322da0405f 100644 (file)
--- 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]);

diff --git a/_testing/travis/update-scripts-yaml.pl b/_testing/travis/update-scripts-yaml.pl
index 0ed52aca5f5f7dc004324811d66c0234728cff0e..29925a353b07d1fe75c0a32c54b8fcb48ac152c4 100644 (file)
--- a/_testing/travis/update-scripts-yaml.pl
+++ b/_testing/travis/update-scripts-yaml.pl
@@ -46,6 +46,10 @@ for my $file (<scripts/*.pl>) {
        $newmeta{$filename}{modules}
            = join ' ', @$modules
                if 'ARRAY' eq ref $modules;
+       my $commands = delete $newmeta{$filename}{commands};
+       $newmeta{$filename}{commands}
+           = join ' ', grep { !/ / } @$commands
+               if 'ARRAY' eq ref $commands;
     }
     elsif (exists $oldmeta{$filename}) {
        print "META-INF FOR $base NOT FOUND\n";