This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to ExtUtils-ParseXS-2.16. There actually are a couple of
authorSteve Peters <steve@fisharerojo.org>
Sat, 16 Sep 2006 19:37:51 +0000 (19:37 +0000)
committerSteve Peters <steve@fisharerojo.org>
Sat, 16 Sep 2006 19:37:51 +0000 (19:37 +0000)
changes in bleadperl not in the new version, so version was bumped
to 2.16_01.

p4raw-id: //depot/perl@28856

lib/ExtUtils/ParseXS.pm

index 26e15fa..b6f4220 100644 (file)
@@ -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);