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

[Steve Peters]

Change 34488 by [EMAIL PROTECTED] on 2008/10/15 14:32:01

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

Affected files ...

... //depot/perl/MANIFEST#1734 edit
... //depot/perl/t/lib/Dev/Null.pm#5 edit
... //depot/perl/t/lib/SigDie.pm#1 add
... //depot/perl/t/lib/TieOut.pm#7 edit

Differences ...

==== //depot/perl/MANIFEST#1734 (text) ====
Index: perl/MANIFEST
--- perl/MANIFEST#1733~34485~   2008-10-15 06:38:59.000000000 -0700
+++ perl/MANIFEST       2008-10-15 07:32:01.000000000 -0700
@@ -3758,6 +3758,7 @@
 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

==== //depot/perl/t/lib/Dev/Null.pm#5 (text) ====
Index: perl/t/lib/Dev/Null.pm
--- perl/t/lib/Dev/Null.pm#4~34231~     2008-08-26 07:12:49.000000000 -0700
+++ perl/t/lib/Dev/Null.pm      2008-10-15 07:32:01.000000000 -0700
@@ -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 }

==== //depot/perl/t/lib/SigDie.pm#1 (text) ====
Index: perl/t/lib/SigDie.pm
--- /dev/null   2008-09-17 12:36:34.330355001 -0700
+++ perl/t/lib/SigDie.pm        2008-10-15 07:32:01.000000000 -0700
@@ -0,0 +1,6 @@
+package SigDie;
+
+use vars qw($DIE);
+$SIG{__DIE__} = sub { $DIE = $@ };
+
+1;

==== //depot/perl/t/lib/TieOut.pm#7 (text) ====
Index: perl/t/lib/TieOut.pm
--- perl/t/lib/TieOut.pm#6~23566~       2004-11-29 04:30:31.000000000 -0800
+++ perl/t/lib/TieOut.pm        2008-10-15 07:32:01.000000000 -0700
@@ -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 @@
     $$self .= sprintf $fmt, @_;
 }
 
-sub FILENO {}
+sub FILENO { }
 
 sub read {
     my $self = shift;
End of Patch.