yappo

--- configure.in.orig	2009-04-13 16:38:51.000000000 +0900
+++ configure.in	2009-04-13 17:00:46.000000000 +0900
@@ -23,13 +23,15 @@
 AC_SUBST(MYSQL_INC)
 
 
-# check if prefix points to mysql 5.1
-if test ! -e "${prefix}/include/mysql/plugin.h" -a ! -e "${prefix}/include/mysql.h"
-then
-  echo "failed to lacate mysql 5.1 installation" >&2

yappo

use strict;
use warnings;
use autodie;

use Imager;
use GD;
use Image::Magick;

print "# Imager        $Imager::VERSION\n";
print "# GD            $GD::VERSION\n";

yappo

package HTTP::Engine::Middleware::Profile::NYTProf;
use Any::Moose;
use Time::HiRes;
with 'HTTP::Engine::Middleware::Profile::Role';

BEGIN {
    # referred to L<Devel::NYTProf::Apache>                                                                                                                              

    if (!$ENV{NYTPROF}) {
        $ENV{NYTPROF} = "file=/tmp/nytprof.$$.out";

yappo

# code base is the.pm # ingy++                                                                                                                                           
use utf8; package うんこな;

sub import {
    my $package = caller;
    *{"${package}::$_"} = sub { return wantarray ? @_ : $_[0] }
	for qw(a an teh the more);
    my ($class, $module) = @_;
    if ($module) {
	eval "require $module";

yappo

PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'inc', 'blib/lib', 'blib/arch')" t/*.t xt/*.t
t/00_compile.t ........ ok   
t/01_pack.t ........... 1/36 SV = PVIV(0x803b90) at 0x800f54
  REFCNT = 1
  FLAGS = (TEMP,POK,FAKE,READONLY,pPOK)
  IV = -902917054
  PV = 0x302578 "a"
  CUR = 1
  LEN = 0
msgpack for perl doesn't supported this type: 5

yappo

PERL_DL_NONLAZY=1 /usr/bin/perl "-MExtUtils::Command::MM" "-e" "test_harness(0, 'inc', 'blib/lib', 'blib/arch')" t/*.t xt/*.t
t/00_compile.t ........ ok   
t/01_pack.t ........... 1/36 SV = PVIV(0x803b90) at 0x800f54
  REFCNT = 1
  FLAGS = (TEMP,POK,FAKE,READONLY,pPOK)
  IV = -902917054
  PV = 0x302578 "a"
  CUR = 1
  LEN = 0
msgpack for perl doesn't supported this type: 5

yappo

diff --git a/perl/t/05_preferred_int.t b/perl/t/05_preferred_int.t
index 39c725a..c9a58f2 100644
--- a/perl/t/05_preferred_int.t
+++ b/perl/t/05_preferred_int.t
@@ -11,8 +11,14 @@ sub packit {
     $_;
 }
 
-sub pis ($$) {
-    is packit($_[0]), $_[1], 'dump ' . $_[1];

yappo

diff --git a/perl/t/05_preferred_int.t b/perl/t/05_preferred_int.t
index 39c725a..a2c4b25 100644
--- a/perl/t/05_preferred_int.t
+++ b/perl/t/05_preferred_int.t
@@ -11,8 +11,14 @@ sub packit {
     $_;
 }
 
-sub pis ($$) {
-    is packit($_[0]), $_[1], 'dump ' . $_[1];

yappo

diff --git a/lib/args.pm b/lib/args.pm
index 8e9f084..614d872 100644
--- a/lib/args.pm
+++ b/lib/args.pm
@@ -46,7 +46,7 @@ sub args {
                 Carp::croak($rule->{type}->get_message($args->{$name}));
             }
         }
-        ${$upper_my->{$var_name}} = $args->{$name};
+        $_[$i] = $args->{$name};

yappo

use strict;
use warnings;
use Test::More;

my $x = 'x'x(1024*1024*10);
while (1) {
    ok($x, $x);
}