update comment

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 81ff8def275872d0b5cfe4a1fd484f02aafb10d5..cd6d1d96a8ca7e5d6737c13df769f4459c7161d7 100644 (file)
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -1759,6 +1759,11 @@ sub prepare_for_a_new_file {
                             $max_token_index );
                         if ( $next_nonblank_token ne ')' ) {
                             my $hint;
+
+                            # FIXME: this gives an error parsing something like
+                            #       $subsubs[0]()(0);
+                            # which is a valid syntax (see subsub.t).  We may
+                            # need to revise this coding.
                             error_if_expecting_OPERATOR('(');
 
                             if ( $last_nonblank_type eq 'C' ) {