Fehler beim Einbinden eines Modules: Ka wieso das so ist - #73675 (Allgemeines zu Perl)

SirLant

2003-08-20 19:41

User since
2003-08-04
516 Artikel
BenutzerIn
[default_avatar]

Habe den Problem:

Code (perl): (dl )

sub datenschutz_link
{
my &#36bez = shift;
my &#36self;

if (ref (&#36bez)){
    &#36self = &#36bez ;
}
&#36bez = shift;

    return (create_link (statische_seite_url ("datenschutz"), &#36bez));
}

Funktioniert das einwandfrei, wenn man es über das Objekt aufruft, aber im gleichen Namensraum, nicht, da $bez nie den Parameter bekommt.
Entferne ich die Abfrage für die Referenz(und die Zuweisung), so geht die Funktion für den namensraum, aber für den Zugriff über das Objekt, steht die Speicheradresse als Namen.
Wie kann ich das Dilemma denn beheben?

--Programming today is a race between Software Enginers striving to build bigger and better idiot-proof Programs,
and the Universe trying to produce bigger and better idiots.
So far, the Universe is winning!