Upgrade to Devel::PPPort 3.19_02

[p5sagit/p5-mst-13.2.git] / cpan / Devel-PPPort / parts / apicheck.pl

diff --git a/cpan/Devel-PPPort/parts/apicheck.pl b/cpan/Devel-PPPort/parts/apicheck.pl
index e6caab5..e93fbe8 100644 (file)
--- a/cpan/Devel-PPPort/parts/apicheck.pl
+++ b/cpan/Devel-PPPort/parts/apicheck.pl
@@ -5,13 +5,13 @@
 #
 ################################################################################
 #
-#  $Revision: 35 $
+#  $Revision: 37 $
 #  $Author: mhx $
-#  $Date: 2009/06/12 12:29:35 +0200 $
+#  $Date: 2010/03/07 13:15:43 +0100 $
 #
 ################################################################################
 #
-#  Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
+#  Version 3.x, Copyright (C) 2004-2010, Marcus Holland-Moritz.
 #  Version 2.x, Copyright (C) 2001, Paul Marquess.
 #  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
 #
@@ -261,7 +261,7 @@ for $f (@f) {
   }
   my $aTHX_args = "$aTHX$args";
 
-  unless ($f->{flags}{'m'} and @arg == 0) {
+  if (!$f->{flags}{'m'} or $f->{flags}{'b'} or @arg > 0) {
     $args = "($args)";
     $aTHX_args = "($aTHX_args)";
   }