xaicron

diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index d1dbc52..196acfc 100644
--- a/lib/File/Find.pm
+++ b/lib/File/Find.pm
@@ -364,8 +364,8 @@ require File::Spec;
 # Should ideally be my() not our() but local() currently
 # refuses to operate on lexicals
 
-our %SLnkSeen;
-our ($wanted_callback, $avoid_nlink, $bydepth, $no_chdir, $follow,

xaicron

$ mysqlenv install 5.6.16
run: mysql-build 5.6.16 /Users/shimada.yuji/.mysqlenv/mysqls/5.6.16
Downloading http://cdn.mysql.com/Downloads/MySQL-5.6/mysql-5.6.16.tar.gz...
Unpacking tarball...
Installing mysql-5.6.16...
Installed mysql-5.6.16 to /Users/shimada.yuji/.mysqlenv/mysqls/5.6.16
run: scripts/mysql_install_db
Installing MySQL system tables...2014-03-06 15:24:10 0 [Warning] TIMESTAMP with implicit DEFAULT value is deprecated. Please use --explicit_defaults_for_timestamp server option
 (see documentation for more details).
2014-03-06 15:24:10 7939 [Warning] Buffered warning: Could not increase number of max_open_files to more than 256 (request: 12800)

xaicron

use strict;
use warnings;
use Plack::Request;
use Benchmark qw(cmpthese :hireswallclock);

package Plack::Request::Fast {
    use parent 'Plack::Request';

    use HTTP::Headers::Fast;
    use URI::Escape::XS;

xaicron

use strict;
use warnings;
no warnings 'redefine';

use Furl::HTTP;
use Data::Dumper;

# monkey patch :)
*Furl::HTTP::connect_ssl = sub {
    package Furl::HTTP;

xaicron

#!/usr/bin/env bash

CONFIGURE_OPTIONS=$MYSQL_BUILD_CONFIGURE_OPTS || $(cat "./share/mysql-build/default_configure_options");
echo "[ $CONFIGURE_OPTIONS ]"

CONFIGURE_OPTIONS=$(cat "./share/mysql-build/default_configure_options");
echo "[ $CONFIGURE_OPTIONS ]"

xaicron

#!/usr/bin/env zsh

set -e

MYSQL_VERSION=5.1.69
MYSQL_BASEDIR=$HOME/.mysqlenv/mysqls/${MYSQL_VERSION}
MYSQL_SRCDIR=$HOME/.mysqlenv/mysql-build/build/mysql-${MYSQL_VERSION}
Q4M_VERSION=0.9.9

if [ ! -d ~/tmp ]; then

xaicron

#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';

BEGIN {
    my @methods = ();
    push @methods, qw{ GET POST PUT DELETE };   # HTTP/1.0
    push @methods, qw{ OPTIONS TRACE CONNECT }; # HTTP/1.1
    push @methods, qw{

xaicron

#!/usr/bin/env perl
use strict;
use warnings;

sub delete {
    warn 'tagomoris';
}

my %foo = (tago => 'moris');

xaicron

{
    autoload                               => 'Module::Install',
    call                                   => 'Module::Install',
    find_extensions                        => 'Module::Install',
    load                                   => 'Module::Install',
    load_extensions                        => 'Module::Install',
    preload                                => 'Module::Install',
    ack                                    => 'Module::Install::AckXXX',
    ack_xxx                                => 'Module::Install::AckXXX',
    copy                                   => 'Module::Install::Admin',

xaicron

$VAR1 = {
          'event_id' => 13882441,
          'message' => {
                         'speaker_id' => 'perl',
                         'icon_url' => 'http://www.gravatar.com/avatar/13549ac1be488ef864f5f923e2564cee.jpg',
                         'nickname' => 'perl bot',
                         'local_id' => undef,
                         'public_session_id' => '15b94a',
                         'room' => 'perl_jp',
                         'timestamp' => '2013-03-15T07:40:07Z',