This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
toke.c: Correct comment
[perl5.git] / toke.c
diff --git a/toke.c b/toke.c
index a51bf4d..44a65aa 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -3735,7 +3735,7 @@ S_intuit_more(pTHX_ register char *s)
  *
  * First argument is the stuff after the first token, e.g. "bar".
  *
- * Not a method if bar is a filehandle.
+ * Not a method if foo is a filehandle.
  * Not a method if foo is a subroutine prototyped to take a filehandle.
  * Not a method if it's really "Foo $bar"
  * Method if it's "foo $bar"