Description of problem:

When launching mpan:
Subroutine detect_devices::formatError redefined at
        /usr/lib/libDrakX/detect_devices.pm line 12 (#1)
    (W redefine) You redefined a subroutine.  To suppress this warning, say
    
        {
            no warnings 'redefine';
            eval "sub name { ... }";
        }
    
Useless use of join or string in void context at
        /usr/share/perl5/vendor_perl/ManaTools/Module/Firewall.pm line 375 (#2)
    (W void) You did something without a side effect in a context that does
    nothing with the return value, such as a statement that doesn't return a
    value from a block, or the left side of a scalar comma operator.  Very
    often this points not to stupidity on your part, but a failure of Perl
    to parse your program the way you thought it would.  For example, you'd
    get this if you mixed up your C precedence with Python precedence and
    said
    
        $one, $two = 1, 2;
    
    when you meant to say
    
        ($one, $two) = (1, 2);
    
    Another common error is to use ordinary parentheses to construct a list
    reference when you should be using square or curly brackets, for
    example, if you say
    
        $array = (1,2);
    
    when you should have said
    
        $array = [1,2];
    
    The square brackets explicitly turn a list value into a scalar value,
    while parentheses do not.  So when a parenthesized list is evaluated in
    a scalar context, the comma is treated like C's comma operator, which
    throws away the left argument, which is not what you want.  See
    perlref for more on this.
    
    This warning will not be issued for numerical constants equal to 0 or 1
    since they are often used in statements like
    
        1 while sub_with_side_effects();
    
    String constants that would normally evaluate to 0 or 1 are warned
    about.
    
Use of uninitialized value $device in pattern match (m//) at
        /usr/lib/libDrakX/network/network.pm line 746 (#3)
    (W uninitialized) An undefined value was used as if it were already
    defined.  It was interpreted as a "" or a 0, but maybe it was a mistake.
    To suppress this warning assign a defined value to your variables.
    
    To help you figure out what was undefined, perl will try to tell you
    the name of the variable (if any) that was undefined.  In some cases
    it cannot do this, so it also tells you what operation you used the
    undefined value in.  Note, however, that perl optimizes your program
    and the operation displayed in the warning may not necessarily appear
    literally in your program.  For example, "that $foo" is usually
    optimized into "that " . $foo, and the warning will refer to the
    concatenation (.) operator, even though there is no . in
    your program.
    
Use of uninitialized value $e in string eq at
        /usr/share/perl5/vendor_perl/MDK/Common/DataStructure.pm line 131 (#3)
systemd-246.6-1.mga8
Uncaught exception from user code:
        Error getting obj for driver ManaTools::Module::Services: Undefined subroutine &ManaTools::Shared::Services::glob_ called at /usr/share/perl5/vendor_perl/ManaTools/Shared/Services.pm line 527.
        ManaTools::Module::create("ManaTools::Module", "-CLASS", "ManaTools::Module::Services") called at /usr/share/perl5/vendor_perl/ManaTools/MainDisplay.pm line 825
        ManaTools::MainDisplay::_loadCategories(ManaTools::MainDisplay=HASH(0x2ee7fe8)) called at /usr/share/perl5/vendor_perl/ManaTools/MainDisplay.pm line 459
        ManaTools::MainDisplay::__ANON__(ManaTools::Shared::GUI::Dialog=HASH(0x3316750), yui::YLayoutBox=HASH(0x3315e68)) called at /usr/share/perl5/vendor_perl/ManaTools/Shared/GUI/Dialog.pm line 544
        ManaTools::Shared::GUI::Dialog::call(ManaTools::Shared::GUI::Dialog=HASH(0x3316750)) called at /usr/share/perl5/vendor_perl/ManaTools/MainDisplay.pm line 486
        ManaTools::MainDisplay::_setupGui(ManaTools::MainDisplay=HASH(0x2ee7fe8)) called at /usr/share/perl5/vendor_perl/ManaTools/MainDisplay.pm line 283
        ManaTools::MainDisplay::start(ManaTools::MainDisplay=HASH(0x2ee7fe8)) called at /usr/bin/mpan line 84
<_M_> [ui] YUILoader.cc:234 deleteUI(): Shutting down UI
<_M_> [qt-ui] YQUI.cc:325 ~YQUI(): Closing down Qt UI.
<ERR> [ui] YUI.cc:100 ~YUI(): 1 open dialogs left over

Version-Release number of selected component (if applicable):


How reproducible:


Steps to Reproduce:
1.
2.
3.