yannk

# add in your .bashrc
# http://henrik.nyh.se/2008/12/git-dirty-prompt
# http://www.simplisticcomplexity.com/2008/03/13/show-your-git-branch-name-in-your-prompt/
# http://blog.cyberion.net/2009/01/improved-bash-prompt-for-git-usage.html
#   username@Machine ~/dev/dir[master]$   # clean working directory
#   username@Machine ~/dev/dir[master⚡]$  # dirty working directory
#
# I've made the following ajustements:
#   - Use of plumbing, that should be faster than git status porcelain.
#   - Don't show my repo as dirty if it has files unknown from the index (I always have).

yannk

--- /opt/local/libexec/git-core/git-svn.orig    2009-04-02 11:10:17.000000000 -0700
+++ /opt/local/libexec/git-core/git-svn 2009-04-02 11:24:34.000000000 -0700
@@ -84,6 +84,7 @@
                'repack-flags|repack-args|repack-opts=s' =>
                   \$Git::SVN::_repack_flags,
                'use-log-author' => \$Git::SVN::_use_log_author,
+               'use-svk-log-author' => \$Git::SVN::_use_svk_log_author,
                'add-author-from' => \$Git::SVN::_add_author_from,
                %remote_opts );
 

yannk

#!/usr/bin/perl
use strict;
use warnings;
my $branch  = shift;
my $head    = `git rev-list --date-order --max-count=1 $branch`;
my $svnrev  = `git svn find-rev $head`;
my $diff    = `git diff --find-copies-harder --no-prefix $branch...`;

my $space = "   ";
chomp $svnrev;

yannk

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

my @a = mysub();
my %hash = (
            foo => scalar( my @b = mysub() ),
            bar => scalar @a,
            baz => scalar( mysub() ),
            boo => scalar(@{[ mysub() ]}),

yannk

diff -Naur RBTools-0.2beta1/scripts/post-review RBTools-0.2beta1.new/scripts/pos
t-review
--- RBTools-0.2beta1/scripts/post-review        2009-03-28 22:40:09.000000000 -0
700
+++ RBTools-0.2beta1.new/scripts/post-review    2009-05-07 20:53:29.000000000 -0
700
@@ -148,8 +148,9 @@
     A representation of a SVN source code repository. This version knows how to
     find a matching repository on the server even if the URLs differ.
     """

yannk

T 127.0.0.1:45478 -> 127.0.0.1:11211 [AP]
set ykerherve:8080:sss 0 0 2.
10.

#
T 127.0.0.1:11211 -> 127.0.0.1:45478 [AP]
STORED.

##
T 127.0.0.1:45478 -> 127.0.0.1:11211 [AP]

yannk

--- orig.pm     2009-09-30 22:58:25.000000000 -0700
+++ ../lib/AnyEvent/Util.pm     2009-09-30 22:58:04.000000000 -0700
@@ -468,10 +468,12 @@
 
 =item $cv = run_cmd $cmd, key => value...
 
-Run a given external command, potentially redirecting file descriptors and
-return a condition variable that gets sent the exit status (like C<$?>)
-when the program exits I<and> all redirected file descriptors have been
-exhausted.

yannk

--- lib/AnyEvent/orig.pm        2009-10-01 08:55:59.000000000 -0700
+++ lib/AnyEvent/Util.pm        2009-10-01 09:02:05.000000000 -0700
@@ -537,6 +537,10 @@
 
 See C<close_all_fds_except> for more details.
 
+=item pidref => \$scalar
+
+A reference to a scalar where to store the pid of the run command.
+

yannk

package Plack::Server::Standalone::Accept;
use strict;
use warnings;

use base qw(Plack::Server::Standalone);
use IO::Socket::INET;

sub setup_listener {
    my $self = shift;
    open my $socket, "<&=0"

yannk

console full=yes
console address=127.0.0.1:4000

socket httpsock host=127.0.0.1
socket httpsock service=5000

service plack cmd=perl -I/Users/miyagawa/dev/Nomo/lib /Users/miyagawa/dev/Nomo/bin/nomo /Users/miyagawa/dev/Plack/eg/dot-psgi/Hello.psgi
proxy httpproxy service plack tie_stdin_to=httpsock

command bind httpsock