+ for (1 .. $meta->{testcnt}) {
+ $meta->{infile}[$_ - 1] = read_file "$problem/$_.in" if $meta->{generator} eq 'File';
+ $meta->{okfile}[$_ - 1] = read_file "$problem/$_.ok" if $meta->{runner} eq 'File';
+ }
+ if (exists $meta->{files}) {
+ $_->{content} = read_file "$problem/$_->{name}" for values $meta->{files}
+ }
+ set_problem_meta scalar fileparse($problem), $meta;
+