Merge pull request #1032 from haarg/no-can-sigsys

calculate CAN_SIGSYS when called rather than as a constant

Author: exodist

lib/Test2/API/Instance.pm

@@ -8,7 +8,7 @@ our @CARP_NOT = qw/Test2::API Test2::API::Instance Test2::IPC::Driver Test2::For
 use Carp qw/confess carp/;
 use Scalar::Util qw/reftype/;
 
-use Test2::Util qw/get_tid USE_THREADS CAN_FORK pkg_to_file try CAN_SIGSYS/;
+use Test2::Util qw/get_tid USE_THREADS CAN_FORK pkg_to_file try/;
 
 use Test2::EventFacet::Trace();
 use Test2::API::Stack();

lib/Test2/Util.pm

@@ -166,13 +166,12 @@ sub _check_for_sig_sys {
     return $sig_list =~ m/\bSYS\b/;
 }
 
-BEGIN {
-    if (_check_for_sig_sys($Config{sig_name})) {
-        *CAN_SIGSYS = sub() { 1 };
-    }
-    else {
-        *CAN_SIGSYS = sub() { 0 };
+my $CAN_SIGSYS;
+sub CAN_SIGSYS () {
+    if (!defined $CAN_SIGSYS) {
+        $CAN_SIGSYS = _check_for_sig_sys($Config{sig_name});
     }
+    $CAN_SIGSYS;
 }
 
 my %PERLIO_SKIP = (