Eliminate sub ProtoString(), which was used in only one location.

diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
index 53525e1..1c07c3a 100644 (file)
--- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
+++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
@@ -1176,8 +1176,9 @@ sub INPUT_handler {
     }
     $var_num = $args_match{$var_name};
 
-    $proto_arg[$var_num] = ProtoString($var_type)
-      if $var_num;
+    if ($var_num) {
+      $proto_arg[$var_num] = $proto_letter{$var_type} || "\$";
+    }
     $func_args =~ s/\b($var_name)\b/&$1/ if $var_addr;
     if ($var_init =~ /^[=;]\s*NO_INIT\s*;?\s*$/
       or $in_out{$var_name} and $in_out{$var_name} =~ /^OUT/
@@ -1628,12 +1629,6 @@ EOF
   return 1;
 }
 
-sub ProtoString ($) {
-  my ($type) = @_;
-
-  $proto_letter{$type} or "\$";
-}
-
 sub check_cpp {
   my @cpp = grep(/^\#\s*(?:if|e\w+)/, @line);
   if (@cpp) {