summaryrefslogtreecommitdiff
path: root/embed.pl
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2010-09-22 10:49:24 +0100
committerNicholas Clark <nick@ccl4.org>2010-09-22 12:10:16 +0100
commit2f2085406d63a2408b18e7f5a1601606a3540cf4 (patch)
tree777e787312d20118e886e58f630b47f92dce534d /embed.pl
parent7b53c8eedd95a752eb7639bf6dbd9cf3c3ea2dc6 (diff)
downloadperl-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-xembed.pl5
1 files changed, 1 insertions, 4 deletions
diff --git a/embed.pl b/embed.pl
index 1a005c20b7..b10cbe38a0 100755
--- a/embed.pl
+++ b/embed.pl
@@ -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;