make sure $@ is localized for evals

as perl "Modern Perl"
This commit is contained in:
William Travis Holton 2011-11-27 14:46:51 +13:00
parent e9eacc69d8
commit 6c886e2864

View File

@ -47,10 +47,11 @@ snippet xunless
${1:expression} unless ${2:condition};${3}
# Try/Except
snippet eval
local $@;
eval {
${1:# do something risky...}
};
if ($@) {
if (my $e = $@) {
${2:# handle failure...}
}
# While Loop