diff options
author | Nicholas Clark <nick@ccl4.org> | 2010-09-22 10:49:24 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2010-09-22 12:10:16 +0100 |
commit | 2f2085406d63a2408b18e7f5a1601606a3540cf4 (patch) | |
tree | 777e787312d20118e886e58f630b47f92dce534d /embed.pl | |
parent | 7b53c8eedd95a752eb7639bf6dbd9cf3c3ea2dc6 (diff) | |
download | perl-2f2085406d63a2408b18e7f5a1601606a3540cf4.tar.gz |
In embed.pl's walk_table, the default filename of '-' was never used.
Remove it, simplifying the argument passing.
Diffstat (limited to 'embed.pl')
-rwxr-xr-x | embed.pl | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -123,11 +123,8 @@ while (<IN>) { # walk table providing an array of components in each line to # subroutine, printing the result sub walk_table (&@) { - my $function = shift; - my $filename = shift || '-'; - my $leader = shift; + my ($function, $filename, $leader, $trailer) = @_; defined $leader or $leader = do_not_edit ($filename); - my $trailer = shift; my $F; if (ref $filename) { # filehandle $F = $filename; |