prevent possible regex on undefined scalar in __current_token_is_forced_word

Author: wchristian

lib/PPI/Tokenizer.pm

@@ -833,7 +833,7 @@ sub __current_token_is_forced_word {
 		# We also have to make sure that the sub/package/etc doing the forcing
 		# is not a method call.
 		if( $USUALLY_FORCES{$content}) {
-			return if $word =~ /^v[0-9]+$/ and ( $content eq "use" or $content eq "no" );
+			return if defined $word and $word =~ /^v[0-9]+$/ and ( $content eq "use" or $content eq "no" );
 			return 1 if not $prevprev;
 			return 1 if not $USUALLY_FORCES{$prevprev->content} and $prevprev->content ne '->';
 			return;