Skip to content

Instantly share code, notes, and snippets.

Yuji Shimada xaicron

Block or report user

Report or block xaicron

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View gist:9930396
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,
View gist:9383765
$ 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)
View gist:9341932
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
xaicron / gist:5633906
Created May 23, 2013
Furl で https の接続先を差し替える人 See also: http://blog.livedoor.jp/xaicron/archives/54022720.html
View gist:5633906
use strict;
use warnings;
no warnings 'redefine';
use Furl::HTTP;
use Data::Dumper;
# monkey patch :)
*Furl::HTTP::connect_ssl = sub {
package Furl::HTTP;
View gist:5539690
#!/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 ]"
View q4m_and_handler_socket_install.sh
#!/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
View dispatcher.pl
#!/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{
View gist:5338474
#!/usr/bin/env perl
use strict;
use warnings;
sub delete {
warn 'tagomoris';
}
my %foo = (tago => 'moris');
View gist:5219799
{
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',
View gist:5168137
$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',
You can’t perform that action at this time.