From: Steve Peters <steve@fisharerojo.org>
Date: Sat, 16 Sep 2006 19:37:51 +0000 (+0000)
Subject: Upgrade to ExtUtils-ParseXS-2.16.  There actually are a couple of
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5331dc36ff75dd675f9cf557881282295fb8c2c6;p=p5sagit%2Fp5-mst-13.2.git

Upgrade to ExtUtils-ParseXS-2.16.  There actually are a couple of
changes in bleadperl not in the new version, so version was bumped
to 2.16_01.

p4raw-id: //depot/perl@28856
---

diff --git a/lib/ExtUtils/ParseXS.pm b/lib/ExtUtils/ParseXS.pm
index 26e15fa..b6f4220 100644
--- a/lib/ExtUtils/ParseXS.pm
+++ b/lib/ExtUtils/ParseXS.pm
@@ -18,7 +18,7 @@ my(@XSStack);	# Stack of conditionals and INCLUDEs
 my($XSS_work_idx, $cpp_next_tmp);
 
 use vars qw($VERSION);
-$VERSION = '2.15_02';
+$VERSION = '2.16_01';
 
 use vars qw(%input_expr %output_expr $ProtoUsed @InitFileCode $FH $proto_re $Overload $errors $Fallback
 	    $cplusplus $hiertype $WantPrototypes $WantVersionChk $except $WantLineNumbers
@@ -1221,7 +1221,9 @@ sub INTERFACE_handler() {
   TrimWhitespace($in);
 
   foreach (split /[\s,]+/, $in) {
-    $Interfaces{$_} = $_;
+    my $name = $_;
+    $name =~ s/^$Prefix//;
+    $Interfaces{$name} = $_;
   }
   print Q(<<"EOF");
 #	XSFUNCTION = $interface_macro($ret_type,cv,XSANY.any_dptr);