[svn:parrot] r37913 - branches/install_tools/lib/Parrot

jkeenan at svn.parrot.org jkeenan at svn.parrot.org
Sun Apr 5 01:53:16 UTC 2009


Author: jkeenan
Date: Sun Apr  5 01:53:15 2009
New Revision: 37913
URL: https://trac.parrot.org/parrot/changeset/37913

Log:
Rename a variable to distinguish among various 'meta's.

Modified:
   branches/install_tools/lib/Parrot/Install.pm

Modified: branches/install_tools/lib/Parrot/Install.pm
==============================================================================
--- branches/install_tools/lib/Parrot/Install.pm	Sun Apr  5 00:44:03 2009	(r37912)
+++ branches/install_tools/lib/Parrot/Install.pm	Sun Apr  5 01:53:15 2009	(r37913)
@@ -58,8 +58,8 @@
 =cut
 
 sub lines_to_files {
-    my ($metatransforms, $othertransforms, $manifests_ref, $options_ref, $parrotdir)
-        = @_;
+    my ($metatransforms, $othertransforms, $manifests_ref, 
+        $options_ref, $parrotdir) = @_;
     my @files;
     my @installable_exe;
     my %directories;
@@ -96,9 +96,9 @@
             : '.*';
         next unless $package =~ /$plist/;
 
-        my %meta;
-        @meta{ split( /,/, $meta ) } = ();
-        $meta{$entry} = 1 for ( keys %meta );          # Laziness
+        my %metadata;
+        @metadata{ split( /,/, $meta ) } = ();
+        $metadata{$entry} = 1 for ( keys %metadata );          # Laziness
 
         FIXFILE: {
             # Have to catch this case early for some unknown reason
@@ -110,7 +110,7 @@
                 last FIXFILE;
             }
             foreach my $tkey (keys %$metatransforms) {
-                if ( $meta{$tkey} ) {
+                if ( $metadata{$tkey} ) {
                     my $copy = $dest; # only needed for installable
                     $dest = File::Spec->catdir(
                         $options_ref->{$metatransforms->{$tkey}->{optiondir} . 'dir'},


More information about the parrot-commits mailing list