From a1d55b8fd9d06a3960ba69eee30de1180602714a Mon Sep 17 00:00:00 2001
From: "James E. Keenan" <jkeenan@cpan.org>
Date: Fri, 26 Mar 2010 22:44:35 -0400
Subject: [PATCH] Eliminate sub ProtoString(), which was used in only one
 location.

---
 dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm
index 53525e1..1c07c3a 100644
--- 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) {
-- 
2.7.4