2009-03-30T06:29:47 nepos

Wobei man das 1; auch weglassen kann und halt mit if ($@) { ... } den Fehler abfangen kann. Ist halt Geschmackssache.

2009-03-30T08:24:40 renee

2009-03-30T06:29:47 nepos

Wobei man das 1; auch weglassen kann und halt mit if ($@) { ... } den Fehler abfangen kann. Ist halt Geschmackssache.

Es gibt rein theoretisch Race Conditions, die $@ neu setzen können zwischen dem eval und dem if($@)...

2009-03-30T09:42:37 nepos

Wenn ich $@ direkt hinter dem eval abfrage, kann da doch eigentlich nichts schiefgehen. Ausser vielleicht, man hat Threads im Spiel, aber das will man eigentlich eh nicht.

2009-03-30T08:24:40 renee

Es gibt rein theoretisch Race Conditions, die $@ neu setzen können zwischen dem eval und dem if($@)...

1
2
3
4
5
6
7
8
9
10
11
12
13
14

$ perl -wle'
sub Foo::DESTROY { eval { print "everything ok" }; }
eval {
    my $o = bless {}, "Foo";
    die;
};
if ($@) {
    print "ERROR: $@";
}
else {
    print "no error"
}'
everything ok
no error

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem