sub _finde_pfad () {
    #--------------------------------------------------------------------------
    # sub          : _ f i n d e _ p f a d
    #--------------------------------------------------------------------------
    # Autor        : CD
    # Aufgabe      : Sucht den Pfad des Moduls.
    # Parameter    : keiner (wertet @INC aus)
    # Rückgabewert : Verzeichnis
    #--------------------------------------------------------------------------
    # 0.0.1 - 20.08.2003 - CD - Erstellt
    #--------------------------------------------------------------------------

    for my $pfad (@INC) {
        return $pfad if -e "$pfad/TagBase.pm";
    }
    return '.';
} # sub _finde_pfad