Fix warning from Perl being super-helpful.

14 years ago · e0bbe38856
parent d173069128
commit e0bbe38856
1 changed files with 1 additions and 1 deletions
--- a/2
+++ b/2
@ -154,7 +154,7 @@ sub getListOptions

    my @args = qw/--checklist 20 70 18/;
    splice @args, 1, 0, $prompt;
-    splice @args, 0, 0, qw/--output-separator ,/;
+    splice @args, 0, 0, '--output-separator', ',';

    while (my ($k, $v) = splice(@{$opts}, 0, 2)) {
        push (@args, $k, $v, (exists ${$enabled}{$k} ? 'on' : 'off'));