From: Steve Peters <steve@fisharerojo.org>
Date: Wed, 15 Oct 2008 14:32:01 +0000 (+0000)
Subject: *sigh* More files messed with for Test-Simple-0.82.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=87f9c3f59c3e56a72bcc46cf3cff7442b40b537c;p=p5sagit%2Fp5-mst-13.2.git

*sigh* More files messed with for Test-Simple-0.82.

p4raw-id: //depot/perl@34488
---

diff --git a/MANIFEST b/MANIFEST
index d7a8ac4..6586c77 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -3758,6 +3758,7 @@ t/lib/mypragma.t		Test the example user pragma
 t/lib/no_load.t			Test that some modules don't load others
 t/lib/proxy_constant_subs.t	Test that Proxy Constant Subs behave correctly
 t/lib/Sans_mypragma.pm			Test module for t/lib/mypragma.t
+t/lib/SigDie.pm			Test module for Test::More
 t/lib/strict/refs		Tests of "use strict 'refs'" for strict.t
 t/lib/strict/subs		Tests of "use strict 'subs'" for strict.t
 t/lib/strict/vars		Tests of "use strict 'vars'" for strict.t
diff --git a/t/lib/Dev/Null.pm b/t/lib/Dev/Null.pm
index 0aaf3c0..e89b4b5 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 0000000..f954e2d
--- /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 0a0f5f9..24a1559 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;