Better @INC fiddling and degenerate case for ProgressTree
This commit is contained in:
parent
f14545ec12
commit
bb8753cd2a
7 changed files with 49 additions and 23 deletions
|
|
@ -225,6 +225,7 @@ sub purgeInFork {
|
|||
} @roots;
|
||||
|
||||
my $tree = WebGUI::ProgressTree->new( $session, \@ids );
|
||||
$process->update( sub { $tree->json } );
|
||||
my $patch = Monkey::Patch::patch_class(
|
||||
'WebGUI::Asset',
|
||||
'purge',
|
||||
|
|
@ -390,6 +391,7 @@ sub trashInFork {
|
|||
} @roots;
|
||||
|
||||
my $tree = WebGUI::ProgressTree->new( $session, \@ids );
|
||||
$process->update(sub { $tree->json });
|
||||
my $patch = Monkey::Patch::patch_class(
|
||||
'WebGUI::Asset',
|
||||
'setState',
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue