dann

use strict;
use warnings;
use AnyEvent;
use Plack::Builder;

my $hanlder = sub {
    my $env = shift;
 
    my $cv = AE::cv;
    my $w; 

dann

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use Web::Scraper;
use URI;
use Hash::Merge qw( merge );
use Data::Dumper;

our $MEMBERS_URL_BASE = 'http://webinfo.parl.gc.ca/MembersOfParliament/';

dann

package com.thinkminimo.step

import javax.servlet._
import javax.servlet.http._
import scala.util.DynamicVariable
import scala.util.matching.Regex
import scala.collection.mutable.HashSet
import scala.collection.jcl.MapWrapper

object Step

dann

diff --git a/.vim/autoload/libperl.vim b/.vim/autoload/libperl.vim
index 1992fbf..541f3c9 100644
--- a/.vim/autoload/libperl.vim
+++ b/.vim/autoload/libperl.vim
@@ -257,7 +257,7 @@ endf
 "   @file: 
  
 fun! libperl#grep_file_functions(file)
-  let out = system('grep -oP "(?<=^sub )\w+" ' . a:file )
+  let out = system('grep -oE "?^sub \w+" ' . a:file . " |  sed -e \"s/^sub //\""  )

dann

Error detected while processing function <SNR>51_open_perldoc..142:                                          
line   12:
E95: Buffer with this name already exists

dann

let g:NeoComplCache_EnableAtStartup = 1
let g:NeoComplCache_KeywordCompletionStartLength = 1
let g:NeoComplCache_PluginCompletionLength = {
  \ 'snipMate_complete' : 1,
  \ 'buffer_complete' : 2,
  \ 'include_complete' : 2,
  \ 'syntax_complete' : 2,
  \ 'filename_complete' : 2,
  \ 'keyword_complete' : 2,
  \ 'omni_complete' : 1 

dann

--- MethodOverride.pm.orig      2009-10-14 17:58:02.000000000 +0900
+++ MethodOverride.pm   2009-10-14 18:03:03.000000000 +0900
@@ -10,12 +10,14 @@
     my $self = shift;
     my $env  = shift;
 
-    my $key = $self->header || 'X-HTTP-Method-Override';
-       $key =~ tr/-/_/;
-
-    my $method = $env->{"HTTP_" . uc($key)};

dann

◇ 基本
どこから: adjusted evictionが高いところの slabを移動させる
   * adjusted eviction = eviction_count * items_per_slab 

どこに: unique hit rateが低い場所に移動
   * unique hit rate = unique_hits / number_of_slabs

◇ 
高いeviction数でかつ低いヒットレートのslabクラスがある。
この問題を避けるために、rebalaceされるクラスの両方のslab classで

dann

--- Git.pm>.....2009-08-31 23:11:07.000000000 +0900
+++ Git.pm.orig>2009-08-31 23:04:51.000000000 +0900
@@ -61,25 +61,6 @@
     print $tmp_fh $msg;
     my $tmp_fn = "$tmp_fh";
     system($command, "commit", "-a", "-F", $tmp_fn);
-
-    if (my $where = $self->{push_to}) {
-        my $branch = $self->_get_branch;
-        if ($branch) {

dann

-Xms3g
-Xmx3g
-XX:+UseConcMarkSweepGC 
-XX:+UseTLAB
-XX:+CMSIncrementalMode
-XX:+CMSIncrementalPacing 
-XX:CMSIncrementalDutyCycleMin=0 
-XX:CMSIncrementalDutyCycle=10 
-XX:+UseParNewGC 
-XX:+CMSPermGenSweepingEnabled