[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