In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/63217fa24af28633b698fe8bd5844dedd922dc8e?hp=b255a112693312907754193cdbc1648d9182cb0d>
- Log -----------------------------------------------------------------
commit 63217fa24af28633b698fe8bd5844dedd922dc8e
Author: Father Chrysostomos <spr...@cpan.org>
Date: Thu Nov 13 16:08:49 2014 -0800
Revert "t/TEST: add -w to shebang, fix a used-once warning"
This reverts commit da6e3e61d3d3194e7f769b7ddf7e6d16904c24d3.
This causes problems for deparse mode, which emits pages of warnings.
If we are going to add -w, we ought first to fix deparse testing to
work with it.
-----------------------------------------------------------------------
Summary of changes:
lib/FileHandle.t | 2 +-
t/TEST | 4 ++--
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/lib/FileHandle.t b/lib/FileHandle.t
index 3c6f593..f4a8800 100644
--- a/lib/FileHandle.t
+++ b/lib/FileHandle.t
@@ -29,7 +29,7 @@ my $fh = (new FileHandle "./TEST", O_RDONLY
ok(defined($fh), "create new handle O_RDONLY");
my $buffer = <$fh>;
-is($buffer, "#!./perl -w\n", "Got expected first line via handle");
+is($buffer, "#!./perl\n", "Got expected first line via handle");
ungetc $fh ord 'A';
my $buf;
diff --git a/t/TEST b/t/TEST
index 15d59b7..9772490 100755
--- a/t/TEST
+++ b/t/TEST
@@ -1,4 +1,4 @@
-#!./perl -w
+#!./perl
# 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 || $::do_nothing) { # set by harness b4 requiring us
+if ($::do_nothing) {
return 1;
}
--
Perl5 Master Repository
