auto

pawjy · Jan 25, 2024 · cc741cb · cc741cb
1 parent bb2b3c8
commit cc741cb
Show file tree

Hide file tree

Showing 5 changed files with 33 additions and 11 deletions.
diff --git a/.github/workflows/cron.yml b/.github/workflows/cron.yml
@@ -37,7 +37,7 @@
    "on" : {
       "schedule" : [
          {
-            "cron" : "38 21 * * *"
+            "cron" : "3 22 * * *"
          }
       ]
    }

diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
@@ -119,7 +119,7 @@
             "matrix" : {
                "include" : [
                   {
-                     "env_TEST_MYSQL_VERSION" : "",
+                     "env_TEST_MYSQL_VERSION" : "mariadb",
                      "experimental" : false,
                      "perl_version" : "latest"
                   },
@@ -129,7 +129,12 @@
                      "perl_version" : "latest"
                   },
                   {
-                     "env_TEST_MYSQL_VERSION" : "",
+                     "env_TEST_MYSQL_VERSION" : "mysql8",
+                     "experimental" : false,
+                     "perl_version" : "latest"
+                  },
+                  {
+                     "env_TEST_MYSQL_VERSION" : "mariadb",
                      "experimental" : false,
                      "perl_version" : "5.14.2"
                   },
@@ -139,14 +144,24 @@
                      "perl_version" : "5.14.2"
                   },
                   {
-                     "env_TEST_MYSQL_VERSION" : "",
+                     "env_TEST_MYSQL_VERSION" : "mysql8",
+                     "experimental" : false,
+                     "perl_version" : "5.14.2"
+                  },
+                  {
+                     "env_TEST_MYSQL_VERSION" : "mariadb",
                      "experimental" : false,
                      "perl_version" : "5.12.4"
                   },
                   {
                      "env_TEST_MYSQL_VERSION" : "mysql5.6",
                      "experimental" : false,
                      "perl_version" : "5.12.4"
+                  },
+                  {
+                     "env_TEST_MYSQL_VERSION" : "mysql8",
+                     "experimental" : false,
+                     "perl_version" : "5.12.4"
                   }
                ]
             }

diff --git a/config/perl/pmb-install.txt b/config/perl/pmb-install.txt
@@ -1,8 +1,11 @@
 AnyEvent~7.17
 AnyEvent::FileLock~0.06
+AnyEvent::Socket
 Canary::Stability~2013
 Carp~1.50
 Class::Accessor::Lite~0.08
+Crypt::OpenSSL::RSA~0.33
+Crypt::OpenSSL::Random~0.15
 Cwd~3.75
 DBD::mysql~5.003
 DBI~1.643
@@ -28,10 +31,8 @@ Path::Tiny~0.144
 Scalar::Util~1.63
 Socket~2.037
 Term::ANSIColor~5.01
+Test::Builder~1.302198
 Test::Class~0.52
-Test::More~1.302198
 Test::mysqld~1.0013
 Time::HiRes~1.9764
-Try::Tiny~0.30
-Crypt::OpenSSL::RSA
 Try::Tiny~0.31
diff --git a/lib/AnyEvent/MySQL/Client/Promise.pm b/lib/AnyEvent/MySQL/Client/Promise.pm
@@ -78,9 +78,12 @@ sub _fulfill_promise ($$) {
   my $promise = $_[0];
   my $reactions = delete $promise->{promise_fulfill_reactions};
   $promise->{promise_result} = $_[1];
-  delete $promise->{promise_reject_reactions};
+  my $x = delete $promise->{promise_reject_reactions};
   $promise->{promise_state} = 'fulfilled';
 
+  ## Run GC between promise callbacks
+  _enqueue { undef $x };
+
   ## TriggerPromiseReactions
   _enqueue_promise_reaction_job $_, $_[1] for @$reactions;
 
@@ -91,10 +94,13 @@ sub _reject_promise ($$) {
   my $promise = $_[0];
   my $reactions = delete $promise->{promise_reject_reactions};
   $promise->{promise_result} = $_[1];
-  delete $promise->{promise_fulfill_reactions};
+  my $x = delete $promise->{promise_fulfill_reactions};
   $promise->{promise_state} = 'rejected';
   _rejection_tracker_reject $promise unless $promise->{promise_is_handled};
 
+  ## Run GC between promise callbacks
+  _enqueue { undef $x };
+
   ## TriggerPromiseReactions
   _enqueue_promise_reaction_job $_, $_[1] for @$reactions;
 
@@ -417,7 +423,7 @@ sub DESTROY ($) {
 
 =head1 LICENSE
 
-Copyright 2014-2019 Wakaba <wakaba@suikawiki.org>.
+Copyright 2014-2021 Wakaba <wakaba@suikawiki.org>.
 
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.

diff --git a/t_deps/modules/serverset b/t_deps/modules/serverset
+5 −4		config/perl/pmb-install.txt
+6 −0		lib/ServerSet.pm
+1 −1		lib/ServerSet/MySQLServerHandler.pm
+1 −1		modules/anyevent-mysql-client
+1 −1		modules/dongry