Subject: | slight bug about return code? |
% perl -E 'use Firefox::Marionette; my $ff = Firefox::Marionette->new; exit 0'; echo $?
255
% perl -E 'use Firefox::Marionette; my $ff = Firefox::Marionette->new; undef $ff; exit 0'; echo $?
0
You can fix it below, but I don't know if it is suitable.
--- lib/Firefox/Marionette.pm.orig 2019-12-24 09:41:47.428022000 +0900
+++ lib/Firefox/Marionette.pm 2019-12-24 09:41:48.467972000 +0900
@@ -4731,6 +4731,7 @@
sub DESTROY {
my ($self) = @_;
+ local $CHILD_ERROR;
if ( $self->{survive} ) {
}
elsif ( $self->{creation_pid} == $PROCESS_ID ) {