Help for this page

Select Code to Download

  1. or download this
    [14166] error @0.102147> [hit #336]request to GET / crashed: YAML Erro
    +r: Invalid element in map
       Line: 315
       Document: 1
     at /opt/perl5.14/lib/site_perl/5.14.2/YAML/ line 352. in /op
    +t/perl5.14/lib/site_perl/5.14.2/Dancer/ l. 98
  2. or download this
            - "You can select more than one answer.\n"
    e answer.\n"
  3. or download this
    sub flush {
        my $self         = shift;
        return $self;
  4. or download this
    use warnings;
        close   $child                    or die "close child: $!";
  5. or download this
    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";
  6. or download this
    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'