This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
toke.c: Correct comment
authorFather Chrysostomos <sprout@cpan.org>
Fri, 6 Jul 2012 12:35:01 +0000 (05:35 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 7 Jul 2012 05:26:32 +0000 (22:26 -0700)
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"