Better @INC fiddling and degenerate case for ProgressTree

This commit is contained in:
Paul Driver 2010-11-08 07:54:14 -06:00
parent f14545ec12
commit bb8753cd2a
7 changed files with 49 additions and 23 deletions

View file

@ -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',