[Perl] Warning bei shift im Rückgabewert

Hallo,

Wie kann ich ein Warning bei einem shift im Rückgabewert verhindern bei eingeschalteten warnings?

Code:

---

# ein Modul
sub link {
        "\n <a class='link' href=' " . shift . " '>" . shift . "</a> " ;
}

---

Code:

---

Warning: Use of "shift" without parentheses is ambiguous at /...../CSS_Style.pm line 44.

---

Was für möglichkeiten hab ich hier ausser warnings auszuschalten oder die werte vorher in eine Variable zu packen?

Hi,

eigentlich stehts ja da...

Klammern setzen ;)

shift() oder shift(@_);

EDIT:
Übringes: link() ist eine Perl-Funktion - benutze lieber einen anderen Namen.

Code:

---

sub mylink($$)
{
  return("..." shift(@_) . "..." . shift(@_) . "...");
}

---