diff options
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; |