X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FTest%2FValgrind%2FAction%2FCaptor.pm;h=fc4f0cbc4b4cf0a0aef48a239bebc9fcecaa7d24;hb=3a312e2c6e7fdc7be70dcc8ccca604e7c62699f5;hp=ad9dfbca65dc2e8bdb44c0f913804cc5216f6532;hpb=cea977523ce9c4be865b97a0813a5e14cce873f9;p=perl%2Fmodules%2FTest-Valgrind.git diff --git a/lib/Test/Valgrind/Action/Captor.pm b/lib/Test/Valgrind/Action/Captor.pm index ad9dfbc..fc4f0cb 100644 --- a/lib/Test/Valgrind/Action/Captor.pm +++ b/lib/Test/Valgrind/Action/Captor.pm @@ -9,11 +9,11 @@ Test::Valgrind::Action::Captor - Mock Test::Valgrind::Action for capturing outpu =head1 VERSION -Version 1.13 +Version 1.16 =cut -our $VERSION = '1.13'; +our $VERSION = '1.16'; =head1 DESCRIPTION @@ -50,7 +50,10 @@ sub _dup_fh { or $_[0]->_croak('open(' . fileno($_[1]) . ", '$_[2]&', $fd): $!"); } -=head2 C +=head2 C + + $tva->save_fh($from, $mode); + $tva->save_fh($from, $mode, $to); Save the original filehandle C<$from> opened with mode C<$mode>, and redirect it to C<$to> if it's defined or to F otherwise. @@ -78,6 +81,8 @@ sub save_fh { =head2 C + $tva->restore_all_fh; + Restore all the filehandles that were saved with L to their original state. The redirections aren't closed. @@ -127,7 +132,7 @@ You can find documentation for this module with the perldoc command. =head1 COPYRIGHT & LICENSE -Copyright 2009,2010,2011 Vincent Pit, all rights reserved. +Copyright 2009,2010,2011,2013,2015 Vincent Pit, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.