Move the parsing warning to the end, so that it won't block slicing

This commit is contained in:
Alessandro Ranellucci 2011-12-18 13:43:31 +01:00
parent f20209ce01
commit 65a018f156

View file

@ -159,8 +159,10 @@ sub do_slice {
},
);
{
local $SIG{__WARN__} = $self->catch_warning;
my @warnings = ();
local $SIG{__WARN__} = sub { push @warnings, $_[0] };
$skein->go;
$self->catch_warning->($_) for @warnings;
}
$process_dialog->Destroy;
undef $process_dialog;