package MIME::Parser;
# Paching the package

sub output_path
{
    my $self = shift;
    ### We use it, so don't warn!
    ### &MIME::Tools::whine("output_path deprecated in MIME::Parser");
    my $output_path = $self->filer->output_path(@_);

    $output_path =~ s![?*"<>]!_!g;

    return $output_path;
}