public
Created

  • Download Gist
zlib.pl
Perl
1 2 3 4 5 6 7 8 9 10 11 12
sub retry_once {
my ($code, $msg) = @_;
 
try { $code->() }
catch {
WARN "RETRY $msg: $_";
try { $code->() }
catch {
ERROR "FAIL $msg: $_";
};
};
}

Please sign in to comment on this gist.

Something went wrong with that request. Please try again.