FEATURE_IS_ENABLED takes only one parameter now, so reflect that in

perl_keyword.pl

p4raw-id: //depot/perl@27713

diff --git a/perl_keyword.pl b/perl_keyword.pl
index 9312f47..5806728 100644 (file)
--- a/perl_keyword.pl
+++ b/perl_keyword.pl
@@ -86,10 +86,9 @@ if(ckWARN_d(WARN_SYNTAX))
 END
   }
   elsif (my $feature = $feature_kw{$k}) {
-    my $feature_len = length($feature);
     $feature =~ s/([\\"])/\\$1/g;
     return <<END;
-return (FEATURE_IS_ENABLED("$feature", $feature_len) ? ${sign}KEY_$k : 0);
+return (FEATURE_IS_ENABLED("$feature") ? ${sign}KEY_$k : 0);
 END
   }
   return <<END;