This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Bump Deparse's $VERSION following commit 65ef2c3e7d945498.
[perl5.git]
/
lib
/
FileHandle.t
diff --git
a/lib/FileHandle.t
b/lib/FileHandle.t
index
3c6f593
..
f4a8800
100644
(file)
--- 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;