X7ROOT File Manager
Current Path:
/usr/share/doc/perl-Try-Tiny/t
usr
/
share
/
doc
/
perl-Try-Tiny
/
t
/
📁
..
📄
00-report-prereqs.dd
(10.07 KB)
📄
00-report-prereqs.t
(5.83 KB)
📄
basic.t
(3 KB)
📄
context.t
(1.17 KB)
📄
erroneous_usage.t
(1.5 KB)
📄
finally.t
(2.5 KB)
📄
given_when.t
(694 B)
📄
global_destruction_forked.t
(953 B)
📄
global_destruction_load.t
(550 B)
📁
lib
📄
named.t
(685 B)
📄
when.t
(669 B)
📄
zzz-check-breaks.t
(1.06 KB)
Editing: global_destruction_forked.t
use strict; use warnings; use Test::More tests => 3; use Try::Tiny; { package WithCatch; use Try::Tiny; sub DESTROY { try {} catch {}; return; } } { package WithFinally; use Try::Tiny; our $_in_destroy; sub DESTROY { local $_in_destroy = 1; try {} finally {}; return; } } try { my $pid = fork; unless ($pid) { my $o = bless {}, 'WithCatch'; $SIG{__DIE__} = sub { exit 1 if $_[0] =~ /A try\(\) may not be followed by multiple catch\(\) blocks/; exit 2; }; exit 0; } waitpid $pid, 0; is $?, 0, 'nested try in cleanup after fork does not maintain outer catch block'; } catch {}; try { my $pid = fork; unless ($pid) { my $o = bless {}, 'WithFinally'; exit 0; } waitpid $pid, 0; is $?, 0, 'nested try in cleanup after fork does not maintain outer finally block'; } finally { exit 1 if $WithFinally::_in_destroy }; pass("Didn't just exit");
Upload File
Create Folder