use fs::partitioning_wizard;
package fs::partitioning_wizard;

my $old_partitionWizardSolutions = \&partitionWizardSolutions;
undef *partitionWizardSolutions;
*partitionWizardSolutions = sub {
    my %solutions = &$old_partitionWizardSolutions;

    foreach (keys %solutions) {
	member($_, 'diskdrake', 'wipe_drive') or delete $solutions{$_};
    }

    %solutions;
};