t/TEST: add -w to shebang, fix a used-once warning

Adding -w should be ok, despite peculiar code style; it avoids
require, unlike "use strict".  Added risk of perl brokenness seems
vanishingly small.  Fix one used-once warning thus exposed, and one
test in FileHandle.t surprised by t/TEST's new '-w' in the shebang.

1 files changed, 2 insertions, 2 deletions

diff --git a/t/TEST b/t/TEST
index 9772490d6f..15d59b7194 100755
--- a/t/TEST
+++ b/t/TEST
@@ -1,4 +1,4 @@
-#!./perl
+#!./perl -w
 
 # This is written in a peculiar style, since we're trying to avoid
 # most of the constructs we'll be testing for.  (This comment is
@@ -108,7 +108,7 @@ my %skip = (
 	   );
 
 
-if ($::do_nothing) {
+if ($::do_nothing || $::do_nothing) { # set by harness b4 requiring us
     return 1;
 }