Select Code to Download

[14166] error @0.102147> [hit #336]request to GET / crashed: YAML Erro
+r: Invalid element in map
   Code: YAML_LOAD_ERR_BAD_MAP_ELEMENT
   Line: 315
   Document: 1
 at /opt/perl5.14/lib/site_perl/5.14.2/YAML/Loader.pm line 352. in /op
+t/perl5.14/lib/site_perl/5.14.2/Dancer/Handler.pm l. 98

...
      question:
        - "You can select more than one answer.\n"
e answer.\n"

sub flush {
    my $self         = shift;
...

    return $self;
}

#!/usr/bin/perl
use warnings;
...
    close   $child                    or die "close child: $!";
}

open my $fh, '+<', $file or die "Can't open '$file': $!\n";
flock $fh, LOCK_EX or die "Can't lock file '$file': $!\n";
truncate $fh, 0;
print {$fh} $content;
close $fh or die "Can't close '$file': $!\n";

sub atomic_write {
    my ($path, $file, $data) = @_;
...
    close $fh or die "Can't close '$file': $!\n";
    rename($filename, $file) or die "Can't move '$filename' to '$file'
+";
}