Commit f246f90e authored by Richard Levitte's avatar Richard Levitte
Browse files

Perl: foreach (@list) { code } is better

parent ef653053
Loading
Loading
Loading
Loading
+4 −4
Original line number Diff line number Diff line
@@ -158,10 +158,10 @@

 # Build all known libraries, engines, programs and scripts.
 # Everything else will be handled as a consequence.
 dolib($_)     foreach @{$unified_info{libraries}};
 doengine($_)  foreach @{$unified_info{engines}};
 dobin($_)     foreach @{$unified_info{programs}};
 doscript($_)  foreach @{$unified_info{scripts}};
 foreach (@{$unified_info{libraries}}) { dolib($_);    }
 foreach (@{$unified_info{engines}})   { doengine($_); }
 foreach (@{$unified_info{programs}})  { dobin($_);    }
 foreach (@{$unified_info{scripts}})   { doscript($_); }

 # Finally, should there be any applicable BEGINRAW/ENDRAW sections,
 # they are added here.