This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
--- 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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use strict; | |
use warnings; | |
use autodie; | |
use Imager; | |
use GD; | |
use Image::Magick; | |
print "# Imager $Imager::VERSION\n"; | |
print "# GD $GD::VERSION\n"; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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"; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# 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"; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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]; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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]; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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}; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
use strict; | |
use warnings; | |
use Test::More; | |
my $x = 'x'x(1024*1024*10); | |
while (1) { | |
ok($x, $x); | |
} |