lib/meta_notation: Fix so C1 controls are escaped

[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;