develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35998 - trunk/config/auto

From:
jkeenan
Date:
January 25, 2009 09:13
Subject:
[svn:parrot] r35998 - trunk/config/auto
Message ID:
20090125171309.AE505CB9AE@x12.develooper.com
Author: jkeenan
Date: Sun Jan 25 09:13:09 2009
New Revision: 35998

Modified:
   trunk/config/auto/pmc.pm

Log:
Population of $pmc_list is better handled as a branch (using ternary op) rather than as a condition (using || op).

Modified: trunk/config/auto/pmc.pm
==============================================================================
--- trunk/config/auto/pmc.pm	(original)
+++ trunk/config/auto/pmc.pm	Sun Jan 25 09:13:09 2009
@@ -141,7 +141,8 @@
     my @pmc = sort_pmcs( @{ $self->{srcpmc} } );
 
     my $pmc_list = $conf->options->get('pmc')
-        || join( ' ', grep { defined $_ } @pmc );
+        ? $conf->options->get('pmc')
+        : join( ' ', grep { defined $_ } @pmc );
 
     # names of class files for src/pmc/Makefile
     ( my $TEMP_pmc_o   = $pmc_list ) =~ s/\.pmc/\$(O)/g;



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About