Remove leading comma in whole() sub

paultcochrane · paultcochrane · commit c0f760b844f2 · 2015-02-25T14:09:33.000+01:00
This allows the sub to compile and be called.
diff --git a/cookbook/10subroutines/10-01arguments.pl b/cookbook/10subroutines/10-01arguments.pl
@@ -33,7 +33,7 @@ (@names, %flags)
 }
 my @stuff = ('array', 'elements');
 my %flags = (hash => 'elements', are => 'pairs');
-whole([,] @stuff, %flags);
+whole(@stuff, %flags);
 
 sub optional ($required, $optional?) {
     my $second_arg = $optional // 'Told you it was optional!';

Original file line number	Diff line number	Diff line change
`@@ -33,7 +33,7 @@ (@names, %flags)`
`33`	`33`	`}`
`34`	`34`	`my @stuff = ('array', 'elements');`
`35`	`35`	`my %flags = (hash => 'elements', are => 'pairs');`
`36`		`-whole([,] @stuff, %flags);`
	`36`	`+whole(@stuff, %flags);`
`37`	`37`
`38`	`38`	`sub optional ($required, $optional?) {`
`39`	`39`	`my $second_arg = $optional // 'Told you it was optional!';`