Fix false-positive detection of Labels

Un-mark affected tests as TODO.

Author: h3xx

Changes

@@ -3,6 +3,7 @@ Revision history for Perl extension PPI
 {{$NEXT}}
 	Summary:
 	- Parse prototypes as literal quotes, enables parens and newlines in protos
+	- Fix false positive detection of labels (GH#289) (Dan Church)
 
 	Details:
 	- Wrapped most Document->new calls in tests with automatic checks

lib/PPI/Token/Word.pm

@@ -305,10 +305,12 @@ sub __TOKENIZER__commit {
 				# attribute operator doesn't directly
 				# touch the object name already works.
 				$token_class = 'Word';
-			} else {
+			} elsif ( !($tokens[0] and $tokens[0]->isa('PPI::Token::Operator')) ) {
 				$word .= $1;
 				$t->{line_cursor} += length($1);
 				$token_class = 'Label';
+			} else {
+				$token_class = 'Word';
 			}
 		} elsif ( $word eq '_' ) {
 			$token_class = 'Magic';

t/08_regression.t

@@ -7,7 +7,7 @@
 use if !(-e 'META.yml'), "Test::InDistDir";
 use lib 't/lib';
 use PPI::Test::pragmas;
-use Test::More tests => 1087 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
+use Test::More tests => 1085 + ($ENV{AUTHOR_TESTING} ? 1 : 0);
 
 use PPI ();
 use PPI::Test qw( pause );
@@ -22,11 +22,6 @@ use Helper 'safe_new';
 
 PPI::Test::Run->run_testdir(qw{ t data 08_regression });
 
-{
-local $TODO = 'known bug';
-PPI::Test::Run->run_testdir(qw{ t data 08_regression_todo });
-}
-