#
################################################################################
#
-# $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.
#
}
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)";
}