diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2010-09-24 00:03:23 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-09-24 00:03:23 -0700 |
| commit | aa0aae5728542a34889d86fbfbffcab63f40a404 (patch) | |
| tree | 8c9db4811acdbc31666f4e0ebd65730e150a37f7 /lib/sigtrap.t | |
| parent | c990774177bcba9a4a8fa785c2d91b1699c6182d (diff) | |
| download | perl-aa0aae5728542a34889d86fbfbffcab63f40a404.tar.gz | |
Oops. I broke sigtrap.t’s test output
Diffstat (limited to 'lib/sigtrap.t')
| -rw-r--r-- | lib/sigtrap.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/sigtrap.t b/lib/sigtrap.t index 13775f7f51..7e8ddef66d 100644 --- a/lib/sigtrap.t +++ b/lib/sigtrap.t @@ -61,8 +61,10 @@ my $out = tie *STDOUT, 'TieOut'; $SIG{FAKE} = 'DEFAULT'; $sigtrap::Verbose = 1; sigtrap->import('any', 'FAKE'); +my $read = $out->read; +untie *STDOUT; is( $SIG{FAKE}, \&sigtrap::handler_traceback, 'should set default handler' ); -like( $out->read, qr/^Installing handler/, 'does it talk with $Verbose set?' ); +like( $read, qr/^Installing handler/, 'does it talk with $Verbose set?' ); # handler_die croaks with first argument eval { sigtrap::handler_die('FAKE') }; |