diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-08-27 11:22:36 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-08-27 11:22:36 +0000 |
| commit | 1452766c55d627a2c0d5246929060db2d001c29b (patch) | |
| tree | 79b7a3511961cf6e9533522cb1fb892f5199cd6e /t/lib/TieOut.pm | |
| parent | 747fafda837a257e669e8b9a79d949e9ca5c0a6e (diff) | |
| download | perl-1452766c55d627a2c0d5246929060db2d001c29b.tar.gz | |
#17783 introduced an outdated test module, causing failure in
lib/ExtUtils/t/problems.t. This grabs a more recent copy from
ExtUtils::MakeMaker.
p4raw-id: //depot/perl@17790
Diffstat (limited to 't/lib/TieOut.pm')
| -rw-r--r-- | t/lib/TieOut.pm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/t/lib/TieOut.pm b/t/lib/TieOut.pm index aa49465200..072e8fdef6 100644 --- a/t/lib/TieOut.pm +++ b/t/lib/TieOut.pm @@ -9,11 +9,15 @@ sub PRINT { $$self .= join('', @_); } +sub PRINTF { + my $self = shift; + my $fmt = shift; + $$self .= sprintf $fmt, @_; +} + sub read { my $self = shift; - my $out = $$self; - $$self = ''; - return $out; + return substr($$self, 0, length($$self), ''); } 1; |