*WIFEXITED = sub { 1 } unless eval { WIFEXITED(0); 1 };
*WEXITSTATUS = sub { shift() >> 8 } unless eval { WEXITSTATUS(0); 1 };
*WIFSIGNALED = sub { shift() & 127 } unless eval { WIFSIGNALED(0); 1 };
+ *WTERMSIG = sub { shift() & 127 } unless eval { WTERMSIG(0); 1 };
}
use base qw/Exporter/;