diff options
| author | Steve Peters <steve@fisharerojo.org> | 2008-10-15 14:32:01 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2008-10-15 14:32:01 +0000 |
| commit | 87f9c3f59c3e56a72bcc46cf3cff7442b40b537c (patch) | |
| tree | 34e5c80628a4af5d0a12f777b59275c39a968cd7 /t/lib | |
| parent | f56953582ae4af437649f099e3968dfe2c4718c9 (diff) | |
| download | perl-87f9c3f59c3e56a72bcc46cf3cff7442b40b537c.tar.gz | |
*sigh* More files messed with for Test-Simple-0.82.
p4raw-id: //depot/perl@34488
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/Dev/Null.pm | 1 | ||||
| -rw-r--r-- | t/lib/SigDie.pm | 6 | ||||
| -rw-r--r-- | t/lib/TieOut.pm | 7 |
3 files changed, 11 insertions, 3 deletions
diff --git a/t/lib/Dev/Null.pm b/t/lib/Dev/Null.pm index 0aaf3c021b..e89b4b5e84 100644 --- a/t/lib/Dev/Null.pm +++ b/t/lib/Dev/Null.pm @@ -1,4 +1,5 @@ package Dev::Null; +# $Id: /mirror/googlecode/test-more/t/lib/Dev/Null.pm 57943 2008-08-18T02:09:22.275428Z brooklyn.kid51 $ sub TIEHANDLE { bless {} } sub PRINT { 1 } diff --git a/t/lib/SigDie.pm b/t/lib/SigDie.pm new file mode 100644 index 0000000000..f954e2db78 --- /dev/null +++ b/t/lib/SigDie.pm @@ -0,0 +1,6 @@ +package SigDie; + +use vars qw($DIE); +$SIG{__DIE__} = sub { $DIE = $@ }; + +1; diff --git a/t/lib/TieOut.pm b/t/lib/TieOut.pm index 0a0f5f9cfe..24a155964d 100644 --- a/t/lib/TieOut.pm +++ b/t/lib/TieOut.pm @@ -1,13 +1,14 @@ package TieOut; +# $Id: /mirror/googlecode/test-more-trunk/t/lib/TieOut.pm 67132 2008-10-01T01:11:04.501643Z schwern $ sub TIEHANDLE { my $scalar = ''; - bless( \$scalar, $_[0]); + bless( \$scalar, $_[0] ); } sub PRINT { my $self = shift; - $$self .= join('', @_); + $$self .= join( '', @_ ); } sub PRINTF { @@ -16,7 +17,7 @@ sub PRINTF { $$self .= sprintf $fmt, @_; } -sub FILENO {} +sub FILENO { } sub read { my $self = shift; |