diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2002-08-25 21:13:03 -0700 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-08-26 15:07:21 +0000 |
| commit | 60ffb3081afd811893be4fb73d870ed1a5c9ca72 (patch) | |
| tree | 66625e15ba3405ed3b9f6a9b90c5320df14be540 /t/lib/TieOut.pm | |
| parent | cd9c2b4e96008c6ff95ba47e81d068a5615dfccc (diff) | |
| download | perl-60ffb3081afd811893be4fb73d870ed1a5c9ca72.tar.gz | |
[ANNOUNCE] Test::Simple 0.47
Message-ID: <20020826111303.GJ758@ool-18b93024.dyn.optonline.net>
p4raw-id: //depot/perl@17783
Diffstat (limited to 't/lib/TieOut.pm')
| -rw-r--r-- | t/lib/TieOut.pm | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/t/lib/TieOut.pm b/t/lib/TieOut.pm index 072e8fdef6..aa49465200 100644 --- a/t/lib/TieOut.pm +++ b/t/lib/TieOut.pm @@ -9,15 +9,11 @@ sub PRINT { $$self .= join('', @_); } -sub PRINTF { - my $self = shift; - my $fmt = shift; - $$self .= sprintf $fmt, @_; -} - sub read { my $self = shift; - return substr($$self, 0, length($$self), ''); + my $out = $$self; + $$self = ''; + return $out; } 1; |