Move the parsing warning to the end, so that it won't block slicing
This commit is contained in:
parent
f20209ce01
commit
65a018f156
1 changed files with 3 additions and 1 deletions
|
@ -159,8 +159,10 @@ sub do_slice {
|
||||||
},
|
},
|
||||||
);
|
);
|
||||||
{
|
{
|
||||||
local $SIG{__WARN__} = $self->catch_warning;
|
my @warnings = ();
|
||||||
|
local $SIG{__WARN__} = sub { push @warnings, $_[0] };
|
||||||
$skein->go;
|
$skein->go;
|
||||||
|
$self->catch_warning->($_) for @warnings;
|
||||||
}
|
}
|
||||||
$process_dialog->Destroy;
|
$process_dialog->Destroy;
|
||||||
undef $process_dialog;
|
undef $process_dialog;
|
||||||
|
|
Loading…
Reference in a new issue