moritz+2008-09-28 20:46:14--

Unter perl 5.10 kann man // anstelle von || nehmen, das testet auf defined().

Alternativ kann man dein Beispiel auch so schreiben:

Code: (dl )

1
2
3
4

sub s {
    die "missing arg" unless @_;
    my $arg = shift;
}