This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix builds with ExtUtils::ParseXS
authorDavid Mitchell <davem@iabyn.com>
Fri, 21 Nov 2014 12:48:59 +0000 (12:48 +0000)
committerDavid Mitchell <davem@iabyn.com>
Fri, 21 Nov 2014 12:48:59 +0000 (12:48 +0000)
A recent change to ExtUtils::ParseXS broke builds: add
    PERL_UNUSED_VAR(file)
only when the 'file' var is present.

dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS.pm

index 765ef86..d0429ed 100644 (file)
@@ -914,13 +914,14 @@ EOF
 ##else
 #    const char* file = __FILE__;
 ##endif
+#
+#    PERL_UNUSED_VAR(file);
 EOF
 
   print Q("#\n");
 
   print Q(<<"EOF");
 #    PERL_UNUSED_VAR(cv); /* -W */
-#    PERL_UNUSED_VAR(file);
 #    PERL_UNUSED_VAR(items); /* -W */
 EOF