From: James E. Keenan <jkeenan@cpan.org>
Date: Sat, 27 Mar 2010 02:44:35 +0000 (-0400)
Subject: Eliminate sub ProtoString(), which was used in only one location.
X-Git-Tag: accepted/trunk/20130322.191538~3330^2~125
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=a1d55b8fd9d06a3960ba69eee30de1180602714a;p=platform%2Fupstream%2Fperl.git

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
--- 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) {