[svn:parrot] r17309 - trunk/lib/Parrot

[bernhard]

Author: bernhard
Date: Sat Mar  3 09:00:32 2007
New Revision: 17309

Modified:
   trunk/lib/Parrot/Distribution.pm

Log:
#41680: A more Perl idiomatic way
Beautifying Parrot::Distribution

Courtesy of elizabeth <[EMAIL PROTECTED]> 


Modified: trunk/lib/Parrot/Distribution.pm
==============================================================================
--- trunk/lib/Parrot/Distribution.pm    (original)
+++ trunk/lib/Parrot/Distribution.pm    Sat Mar  3 09:00:32 2007
@@ -390,17 +390,7 @@
 sub get_perl_language_files {
     my $self = shift;
 
-    my @files = (
-        $self->perl_source_files,
-    );
-
-    my @perl_language_files = ();
-    foreach my $file ( @files ) {
-        next if $self->is_perl_exemption($file);
-        push @perl_language_files, $file;
-    }
-
-    return @perl_language_files;
+    return grep { !$self->is_perl_exemption($_) } $self->perl_source_files;
 }