[svn:parrot] r43576 - branches/one_make/tools/build

jkeenan at svn.parrot.org jkeenan at svn.parrot.org
Sat Jan 23 23:13:50 UTC 2010


Author: jkeenan
Date: Sat Jan 23 23:13:49 2010
New Revision: 43576
URL: https://trac.parrot.org/parrot/changeset/43576

Log:
Change return value of perform_directive() to array ref, as this is what next function takes as argument.

Modified:
   branches/one_make/tools/build/h2inc.pl

Modified: branches/one_make/tools/build/h2inc.pl
==============================================================================
--- branches/one_make/tools/build/h2inc.pl	Sat Jan 23 22:40:37 2010	(r43575)
+++ branches/one_make/tools/build/h2inc.pl	Sat Jan 23 23:13:49 2010	(r43576)
@@ -22,9 +22,9 @@
 my $directive = parse_file($in_file, $out_file);
 die "invalid output file: '$out_file' for input '$in_file'" unless $directive;
 
-my @defs = perform_directive($directive);
+my $defs_ref = perform_directive($directive);
 
-my $generated_text = generate_text($directive, \@defs);
+my $generated_text = generate_text($directive, $defs_ref);
 
 print_generated_file( {
     in      => $in_file,
@@ -160,14 +160,14 @@
 
 =item * Arguments
 
-    @defs = perform_directive($directive);
+    $defs_ref = perform_directive($directive);
 
 Single hash reference (which is the return value from a successful run of
 C<parse_file()>.
 
 =item * Return Value
 
-List.
+Array reference.
 
 =back
 
@@ -180,7 +180,7 @@
     if ( my $subst = $d->{subst} ) {
         @defs = transform_name( sub { local $_ = shift; eval $subst; $_ }, @defs );
     }
-    @defs;
+    return \@defs;
 }
 
 =head2 C<const_to_parrot()>


More information about the parrot-commits mailing list