From f1e0b2b219a0b771c0d2c206564edf518fa4affb Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Wed, 26 Feb 2014 10:14:24 +0200 Subject: [PATCH] Use a static list of formats in gruntmaster-problem --- gruntmaster-problem | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/gruntmaster-problem b/gruntmaster-problem index 76e921f..3ab1219 100755 --- a/gruntmaster-problem +++ b/gruntmaster-problem @@ -2,7 +2,6 @@ use v5.14; use Gruntmaster::Data; -use Gruntmaster::Page::Submit; use IO::Prompter [ -style => 'bold', '-stdio', '-verbatim' ]; use File::Slurp qw/read_file/; @@ -21,7 +20,7 @@ sub prompt_file{ my ($meta, $name, $prefix) = @_; my $filename = prompt '$prefix filename', -complete => 'filenames'; $meta->{files}{$name}{content} = read_file $filename; - $meta->{files}{$name}{format} = prompt '$prefix format', -menu => Gruntmaster::Page::Submit::FORMATS; + $meta->{files}{$name}{format} = prompt '$prefix format', -menu => [qw/C CPP MONO JAVA PASCAL PERL PYTHON/]; $meta->{files}{$name}{name} = prompt "$prefix filename [$filename]", -default => $filename; } -- 2.39.2