Skip Menu |

This queue is for tickets about the Firefox-Marionette CPAN distribution.

Report information
The Basics
Id: 131227
Status: resolved
Priority: 0/
Queue: Firefox-Marionette

People
Owner: Nobody in particular
Requestors: bokutin [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



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 ) {
On Tue Dec 24 11:45:04 2019, bokutin wrote: Show quoted text
> % 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 ) {
Thanks for the patch. Uploaded in 0.88.
Thank you very much!