diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-11-13 16:08:49 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-11-13 16:09:49 -0800 |
commit | 63217fa24af28633b698fe8bd5844dedd922dc8e (patch) | |
tree | 34d7f888d914a9bec254019b24dd5be7097ec891 /lib/FileHandle.t | |
parent | b255a112693312907754193cdbc1648d9182cb0d (diff) | |
download | perl-63217fa24af28633b698fe8bd5844dedd922dc8e.tar.gz |
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.
Diffstat (limited to 'lib/FileHandle.t')
-rw-r--r-- | lib/FileHandle.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/FileHandle.t b/lib/FileHandle.t index 3c6f593465..f4a8800bef 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; |