hanabokuro

#!/usr/bin/perl

use strict;
use warnings;

use Text::Xslate;
use Test::More;

my $tx = Text::Xslate->new(cache => 0,
                           function => {

hanabokuro

[% f() %]

 ||
 VV

pushmark // f
fetch_s "f" #1
or 2
fetch_symbol "f" #1
funcall

hanabokuro

sub _generate_variable {
    my($self, $node) = @_;

    if(defined(my $lvar_id = $self->lvar->{$node->value})) {
        return $self->opcode( load_lvar => $lvar_id, symbol => $node );
    }
    else {
        my $name = $self->_variable_to_value($node);

        my @code;

hanabokuro

sub _generate_call {
    my($self, $node) = @_;
    my $callable = $node->first; # function or macro
    my $args     = $node->second;

    my @code = $self->SUPER::_generate_call($node);

    if($callable->arity eq 'name'){
        my @code_fetch_symbol = $self->compile_ast($callable);
        @code = (

hanabokuro

よく似た症状を再現させる方法

・memcachedを起動
・gdb -p <PID> で attach
(gdb) call pthread_mutex_lock(&conn_lock)
(gdb) call pthread_mutex_lock(&conn_lock)
2回目はlockするので Ctrl-C で中断
(gdb) detach

これで同じ症状になります。

hanabokuro

#!/usr/bin/perl

use strict;
use warnings;

use B;
use Apache2::RequestUtil;

print <<"END;";
Content-type: text/plain

hanabokuro

sub _magic_token {
    my($self, $fullpath) = @_;

    $self->{serial_opt} ||= Data::MessagePack->pack([
        ref($self->{compiler}) || $self->{compiler},
        $self->_filter_options_for_magic_token($self->_extract_options($self->parser_option)),
        $self->_filter_options_for_magic_token($self->_extract_options($self->compiler_option)),
        $self->input_layer,
        [sort keys %{ $self->{function} }],
    ]);

hanabokuro

#!/usr/bin/perl

use strict;
use warnings;

use Expect;

my $MYSQL_COMMAND = '/usr/bin/mysql';

my $expect = new Expect;

hanabokuro

package AvoidCoreTextBug;

use strict;
use warnings;

our %SEPARATORS = map { $_ => 1 } (0x20, 0xa0,
                                   0x1680, 0x180e,
                                   0x2000, 0x2001, 0x2002, 0x2003, 0x2004, 0x2005, 0x2006, 0x2007, 0x2008, 0x2009, 0x200a,
                                   0x202f, 0x205f,
                                   0x3000,

hanabokuro

use strict;
use warnings;

use utf8;

use Test::More;
use Test::Builder;

BEGIN {
    use_ok('AvoidCoreTextBug');