bring '*' prototype closer to how it behaves internally

[perl5.git] / lib / FileHandle.pm

diff --git a/lib/FileHandle.pm b/lib/FileHandle.pm
index 72ecdac..eec9b61 100644 (file)
--- a/lib/FileHandle.pm
+++ b/lib/FileHandle.pm
@@ -112,7 +112,7 @@ FileHandle - supply object methods for filehandles
     use FileHandle;
 
     $fh = new FileHandle;
-    if ($fh->open "< file") {
+    if ($fh->open("< file")) {
         print <$fh>;
         $fh->close;
     }