Merge branch 'issue_36_redux'

lib/Test/Deep.pm

@@ -79,7 +79,15 @@ while (my ($pkg, $name) = splice @constructors, 0, 2)
   my $file = "$full_pkg.pm";
   $file =~ s#::#/#g;
   my $sub = sub {
+    # We might be in the middle of testing one of the globals that require()
+    # overwrites. To simplify test authorship, we'll preserve any existing
+    # value.
+    local $@;
+    local $!;
+    local $^E;
+
     require $file;
+
     return $full_pkg->new(@_);
   };
   {

t/all_any_noclobber_dollar_at.t

@@ -0,0 +1,17 @@
+use strict;
+use warnings;
+use lib 't/lib';
+
+use Std;
+
+{
+    $@ = 'hello';
+    all(123);
+    is( $@, 'hello', 'all() doesn’t overwrite $@' );
+}
+
+{
+    $@ = 'hello';
+    any(123);
+    is( $@, 'hello', 'any() doesn’t overwrite $@' );
+}

t/all_any_noclobber_dollar_bang.t

@@ -0,0 +1,17 @@
+use strict;
+use warnings;
+use lib 't/lib';
+
+use Std;
+
+{
+    $! = 11;
+    all(123);
+    is( 0 + $!, 11, 'all() doesn’t overwrite $!' );
+}
+
+{
+    $! = 11;
+    any(123);
+    is( 0 + $!, 11, 'any() doesn’t overwrite $!' );
+}

t/all_any_noclobber_dollar_e.t

@@ -0,0 +1,17 @@
+use strict;
+use warnings;
+use lib 't/lib';
+
+use Std;
+
+{
+    $^E = 11;
+    all(123);
+    is( 0 + $^E, 11, 'all() doesn’t overwrite $^E' );
+}
+
+{
+    $^E = 11;
+    any(123);
+    is( 0 + $^E, 11, 'any() doesn’t overwrite $^E' );
+}