[svn:ExtUtils-ParseXS] r8428 - in ExtUtils-ParseXS/trunk: . lib/ExtUtils

[kwilliams]

Author: kwilliams
Date: Fri Dec 22 21:48:50 2006
New Revision: 8428

Modified:
   ExtUtils-ParseXS/trunk/Changes
   ExtUtils-ParseXS/trunk/lib/ExtUtils/ParseXS.pm

Log:
Fix undefind-var warning

Modified: ExtUtils-ParseXS/trunk/Changes
==============================================================================
--- ExtUtils-ParseXS/trunk/Changes      (original)
+++ ExtUtils-ParseXS/trunk/Changes      Fri Dec 22 21:48:50 2006
@@ -1,5 +1,8 @@
 Revision history for Perl extension ExtUtils::ParseXS.
 
+ - Fix an undefined-variable warning related to 'inout' parameter
+   processing.
+
 2.17 - Mon Nov 20 17:07:27 2006
 
  - Stacked $filepathname to make #line directives in #INCLUDEs work.

Modified: ExtUtils-ParseXS/trunk/lib/ExtUtils/ParseXS.pm
==============================================================================
--- ExtUtils-ParseXS/trunk/lib/ExtUtils/ParseXS.pm      (original)
+++ ExtUtils-ParseXS/trunk/lib/ExtUtils/ParseXS.pm      Fri Dec 22 21:48:50 2006
@@ -456,7 +456,7 @@
                                             \b ( \w+ | length\( \s*\w+\s* \) )
                                             \s* $ /x);
          next unless defined($pre) && length($pre);
-         my $out_type;
+         my $out_type = '';
          my $inout_var;
          if ($process_inout and s/^(IN|IN_OUTLIST|OUTLIST|OUT|IN_OUT)\s+//) {
            my $type = $1;