From 674c26d9c7213744193d8dd9b5269be66a80c4d5 Mon Sep 17 00:00:00 2001
From: Hideyuki Tanaka <tanaka.hideyuki@gmail.com>
Date: Tue, 4 May 2010 16:22:04 +0900
Subject: [PATCH 01/16] fix feed function from Handle

---
 haskell/msgpack.cabal                 |  2 +-
 haskell/src/Data/MessagePack/Feed.hs  | 12 ++++++++----
 haskell/src/Data/MessagePack/Monad.hs | 17 ++++++++++-------
 3 files changed, 19 insertions(+), 12 deletions(-)

diff --git a/haskell/msgpack.cabal b/haskell/msgpack.cabal
index 505a2b9..31cad3b 100644
--- a/haskell/msgpack.cabal
+++ b/haskell/msgpack.cabal
@@ -1,5 +1,5 @@
 Name:                msgpack
-Version:             0.2.0
+Version:             0.2.1
 License:             BSD3
 License-File:        LICENSE
 Author:              Hideyuki Tanaka
diff --git a/haskell/src/Data/MessagePack/Feed.hs b/haskell/src/Data/MessagePack/Feed.hs
index afd3f6c..93bdd9b 100644
--- a/haskell/src/Data/MessagePack/Feed.hs
+++ b/haskell/src/Data/MessagePack/Feed.hs
@@ -33,12 +33,16 @@ type Feeder = IO (Maybe ByteString)
 -- | Feeder from Handle
 feederFromHandle :: Handle -> IO Feeder
 feederFromHandle h = return $ do
-  bs <- BS.hGet h bufSize
+  bs <- BS.hGetNonBlocking h bufSize
   if BS.length bs > 0
-    then return $ Just bs
+    then do return $ Just bs
     else do
-    hClose h
-    return Nothing
+    bs <- BS.hGet h 1
+    if BS.length bs > 0
+      then do return $ Just bs
+      else do
+      hClose h
+      return Nothing
   where
     bufSize = 4096
 
diff --git a/haskell/src/Data/MessagePack/Monad.hs b/haskell/src/Data/MessagePack/Monad.hs
index bf1514f..cf3a0fd 100644
--- a/haskell/src/Data/MessagePack/Monad.hs
+++ b/haskell/src/Data/MessagePack/Monad.hs
@@ -115,18 +115,21 @@ instance MonadIO m => MonadIO (UnpackerT m) where
 
 instance MonadIO m => MonadUnpacker (UnpackerT m) where
   get = UnpackerT $ \up feed -> liftIO $ do
-    resp <- unpackerExecute up
-    guard $ resp>=0
-    when (resp==0) $ do
-      Just bs <- feed
-      unpackerFeed up bs
-      resp2 <- unpackerExecute up
-      guard $ resp2==1
+    executeOne up feed
     obj <- unpackerData up
     freeZone =<< unpackerReleaseZone up
     unpackerReset up
     let Right r = fromObject obj
     return r
+    
+    where
+      executeOne up feed = do
+        resp <- unpackerExecute up
+        guard $ resp>=0
+        when (resp==0) $ do
+          Just bs <- feed
+          unpackerFeed up bs
+          executeOne up feed
 
 -- | Execute deserializer using given feeder.
 unpackFrom :: MonadIO m => Feeder -> UnpackerT m r -> m r

From dbe760d6e2b0a9d800efa742e4fe264e898e8f3b Mon Sep 17 00:00:00 2001
From: Hideyuki Tanaka <tanaka.hideyuki@gmail.com>
Date: Tue, 4 May 2010 16:24:45 +0900
Subject: [PATCH 02/16] make () to OBJECT instance (Nil)

---
 haskell/src/Data/MessagePack/Class.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/haskell/src/Data/MessagePack/Class.hs b/haskell/src/Data/MessagePack/Class.hs
index f50a4d8..34a7772 100644
--- a/haskell/src/Data/MessagePack/Class.hs
+++ b/haskell/src/Data/MessagePack/Class.hs
@@ -46,6 +46,11 @@ instance OBJECT Object where
 fromObjectError :: String
 fromObjectError = "fromObject: cannot cast"
 
+instance OBJECT () where
+  toObject = const ObjectNil
+  fromObject ObjectNil = Right ()
+  fromObject _ = Left fromObjectError
+
 instance OBJECT Int where
   toObject = ObjectInteger
   fromObject (ObjectInteger n) = Right n

From 8ce23f8e3ecab832f3c263acafa81e32a58c78b2 Mon Sep 17 00:00:00 2001
From: Kazuki Ohta <kazuki.ohta@gmail.com>
Date: Tue, 4 May 2010 18:33:29 +0900
Subject: [PATCH 03/16] java: fixed pom.xml to work "mvn deploy" command

---
 java/pom.xml | 79 +++++++++++++++++++++++++++++++++++++---------------
 1 file changed, 57 insertions(+), 22 deletions(-)

diff --git a/java/pom.xml b/java/pom.xml
index 321e8d5..d1f6c34 100755
--- a/java/pom.xml
+++ b/java/pom.xml
@@ -3,10 +3,12 @@
   <modelVersion>4.0.0</modelVersion>
   <groupId>org.msgpack</groupId>
   <artifactId>msgpack</artifactId>
-  <name>MessagePack for Java</name>
-  <version>1.0-SNAPSHOT</version>
+  <version>0.2</version>
   <description>MessagePack for Java</description>
 
+  <name>MessagePack for Java</name>
+  <url>http://msgpack.sourceforge.net/</url>
+
   <licenses>
     <license>
       <name>The Apache Software License, Version 2.0</name>
@@ -16,9 +18,19 @@
   </licenses>
 
   <scm>
-    <connection>scm:git://github.com/msgpack/msgpack.git</connection>
+    <connection>scm:git:git://github.com/msgpack/msgpack.git</connection>
+    <url>scm:git:git://github.com/msgpack/msgpack.git</url>
   </scm>
 
+  <dependencies>
+    <dependency>
+      <groupId>junit</groupId>
+      <artifactId>junit</artifactId>
+      <version>4.8.1</version>
+      <scope>test</scope>
+    </dependency>
+  </dependencies>
+
   <build>
     <resources>
       <resource>
@@ -83,27 +95,50 @@
     </plugins>
   </reporting>
 
+  <repositories>
+    <repository>
+      <id>msgpack.sourceforge.net</id>
+      <name>MessagePack Maven2 Repository</name>
+      <url>http://msgpack.sourceforge.net/maven2</url>
+    </repository>
+    <repository>
+      <id>msgpack.sourceforge.net</id>
+      <name>MessagePack Maven2 Snapshot Repository</name>
+      <url>http://msgpack.sourceforge.net/maven2-snapshot</url>
+    </repository>
+  </repositories>
+
+  <distributionManagement>
+    <repository>
+      <uniqueVersion>false</uniqueVersion>
+      <id>shell.sourceforge.net</id>
+      <name>Repository at sourceforge.net</name>
+      <url>scp://shell.sourceforge.net/home/groups/m/ms/msgpack/htdocs/maven2/</url>
+    </repository>
+    <snapshotRepository>
+       <uniqueVersion>true</uniqueVersion>
+       <id>shell.sourceforge.net</id>
+       <name>Repository Name</name>
+       <url>scp://shell.sourceforge.net/home/groups/m/ms/msgpack/htdocs/maven2-snapshot/</url>
+    </snapshotRepository>
+  </distributionManagement>
+
   <profiles>
-    <!-- for sending artifacts to sourceforge.net repository -->
     <profile>
-      <id>sourceforge</id>
-      <distributionManagement>
-	<repository>
-          <id>sourceforge.net</id>
-          <name>Repository at sourceforge.net</name>
-          <url>scpexe://shell.sourceforge.net/home/groups/m/ms/msgpack/htdocs/maven2/</url>
-	</repository>
-      </distributionManagement>
+      <id>release</id>
+      <build>
+        <plugins>
+          <plugin>
+            <inherited>true</inherited>
+            <groupId>org.apache.maven.plugins</groupId>
+            <artifactId>maven-deploy-plugin</artifactId>
+            <version>2.4</version>
+            <configuration>
+              <updateReleaseInfo>true</updateReleaseInfo>
+            </configuration>
+          </plugin>
+        </plugins>
+      </build>
     </profile>
   </profiles>
-
-  <dependencies>
-    <dependency>
-      <groupId>junit</groupId>
-      <artifactId>junit</artifactId>
-      <version>4.8.1</version>
-      <scope>test</scope>
-    </dependency>
-
-  </dependencies>
 </project>

From 2f12e6c3d03f4b22be2c7f36b1b1bf7908adb462 Mon Sep 17 00:00:00 2001
From: Hideyuki Tanaka <tanaka.hideyuki@gmail.com>
Date: Wed, 5 May 2010 04:28:04 +0900
Subject: [PATCH 04/16] remove compiler warnings

---
 haskell/src/Data/MessagePack/Base.hsc  | 8 ++++----
 haskell/src/Data/MessagePack/Class.hs  | 1 -
 haskell/src/Data/MessagePack/Feed.hs   | 7 +++----
 haskell/src/Data/MessagePack/Monad.hs  | 2 +-
 haskell/src/Data/MessagePack/Stream.hs | 2 --
 5 files changed, 8 insertions(+), 12 deletions(-)

diff --git a/haskell/src/Data/MessagePack/Base.hsc b/haskell/src/Data/MessagePack/Base.hsc
index ad71712..72c421c 100644
--- a/haskell/src/Data/MessagePack/Base.hsc
+++ b/haskell/src/Data/MessagePack/Base.hsc
@@ -297,7 +297,7 @@ foreign import ccall "msgpack_pack_raw_body_wrap" msgpack_pack_raw_body ::
 -- | Pack a single byte stream. It calls 'packRAW' and 'packRAWBody'.
 packRAW' :: Packer -> ByteString -> IO Int
 packRAW' pc bs = do
-  packRAW pc (BS.length bs)
+  _ <- packRAW pc (BS.length bs)
   packRAWBody pc bs
 
 type Unpacker = ForeignPtr ()
@@ -475,7 +475,7 @@ peekObject ptr = do
     (#const MSGPACK_OBJECT_MAP) ->
       peekObjectMap ptr
     _ ->
-      fail "peekObject: unknown object type"
+      fail $ "peekObject: unknown object type (" ++ show typ ++ ")"
 
 peekObjectBool :: Ptr a -> IO Object
 peekObjectBool ptr = do
@@ -541,11 +541,11 @@ packObject pc (ObjectDouble d) = packDouble pc d >> return ()
 packObject pc (ObjectRAW bs) = packRAW' pc bs >> return ()
 
 packObject pc (ObjectArray ls) = do
-  packArray pc (length ls)
+  _ <- packArray pc (length ls)
   mapM_ (packObject pc) ls
 
 packObject pc (ObjectMap ls) = do
-  packMap pc (length ls)
+  _ <- packMap pc (length ls)
   mapM_ (\(a, b) -> packObject pc a >> packObject pc b) ls
 
 data UnpackReturn =
diff --git a/haskell/src/Data/MessagePack/Class.hs b/haskell/src/Data/MessagePack/Class.hs
index 34a7772..365acc5 100644
--- a/haskell/src/Data/MessagePack/Class.hs
+++ b/haskell/src/Data/MessagePack/Class.hs
@@ -27,7 +27,6 @@ module Data.MessagePack.Class(
 import Control.Monad.Error
 import Data.ByteString.Char8 (ByteString)
 import qualified Data.ByteString.Char8 as C8
-import Data.Either
 
 import Data.MessagePack.Base
 
diff --git a/haskell/src/Data/MessagePack/Feed.hs b/haskell/src/Data/MessagePack/Feed.hs
index 93bdd9b..4b48639 100644
--- a/haskell/src/Data/MessagePack/Feed.hs
+++ b/haskell/src/Data/MessagePack/Feed.hs
@@ -21,7 +21,6 @@ module Data.MessagePack.Feed(
   feederFromString,
   ) where
 
-import Control.Monad
 import Data.ByteString (ByteString)
 import qualified Data.ByteString as BS
 import Data.IORef
@@ -37,9 +36,9 @@ feederFromHandle h = return $ do
   if BS.length bs > 0
     then do return $ Just bs
     else do
-    bs <- BS.hGet h 1
-    if BS.length bs > 0
-      then do return $ Just bs
+    c <- BS.hGet h 1
+    if BS.length c > 0
+      then do return $ Just c
       else do
       hClose h
       return Nothing
diff --git a/haskell/src/Data/MessagePack/Monad.hs b/haskell/src/Data/MessagePack/Monad.hs
index cf3a0fd..c718b8a 100644
--- a/haskell/src/Data/MessagePack/Monad.hs
+++ b/haskell/src/Data/MessagePack/Monad.hs
@@ -79,7 +79,7 @@ packToString :: MonadIO m => PackerT m r -> m ByteString
 packToString m = do
   sb <- liftIO $ newSimpleBuffer
   pc <- liftIO $ newPacker sb
-  runPackerT m pc
+  _ <- runPackerT m pc
   liftIO $ simpleBufferData sb
 
 -- | Execcute given serializer and write byte sequence to Handle.
diff --git a/haskell/src/Data/MessagePack/Stream.hs b/haskell/src/Data/MessagePack/Stream.hs
index bd17f46..c56fe8d 100644
--- a/haskell/src/Data/MessagePack/Stream.hs
+++ b/haskell/src/Data/MessagePack/Stream.hs
@@ -19,9 +19,7 @@ module Data.MessagePack.Stream(
   unpackObjectsFromString,
   ) where
 
-import Control.Monad
 import Data.ByteString (ByteString)
-import qualified Data.ByteString as BS
 import System.IO
 import System.IO.Unsafe
 

From 2c2bf60d0c86fdcccc68077904ef115017e03194 Mon Sep 17 00:00:00 2001
From: tokuhirom <tokuhirom@gmail.com>
Date: Wed, 5 May 2010 15:50:07 +0900
Subject: [PATCH 05/16] Perl: added README file.

---
 perl/README | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 perl/README

diff --git a/perl/README b/perl/README
new file mode 100644
index 0000000..31aae99
--- /dev/null
+++ b/perl/README
@@ -0,0 +1,34 @@
+NAME
+    Data::MessagePack - messagepack
+
+SYNOPSIS
+        my $packed = Data::MessagePack->pack($dat);
+        my $unpacked = Data::MessagePack->unpack($dat);
+
+DESCRIPTION
+    Data::MessagePack is a binary packer for perl.
+
+METHODS
+    my $packed = Data::MessagePack->pack($data);
+        pack the $data to messagepack format string.
+
+    my $unpacked = Data::MessagePack->unpack($msgpackstr);
+        unpack the $msgpackstr to messagepack format string.
+
+Configuration Variables
+    $Data::MessagePack::PreferInteger
+        Pack the string as int when the value looks like int(EXPERIMENTAL).
+
+AUTHORS
+    Tokuhiro Matsuno
+
+THANKS TO
+    Jun Kuriyama
+
+LICENSE
+    This library is free software; you can redistribute it and/or modify it
+    under the same terms as Perl itself.
+
+SEE ALSO
+    <http://msgpack.sourceforge.jp/>
+

From 2b8f853b96fc4e2e43e0547dde091609d757386e Mon Sep 17 00:00:00 2001
From: tokuhirom <tokuhirom@gmail.com>
Date: Wed, 5 May 2010 16:17:57 +0900
Subject: [PATCH 06/16] Perl: fixed some issues. thanks to gfx++
 http://gist.github.com/387743

---
 perl/unpack.c | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

diff --git a/perl/unpack.c b/perl/unpack.c
index 1bb1f47..70dc3cc 100644
--- a/perl/unpack.c
+++ b/perl/unpack.c
@@ -2,6 +2,7 @@
 extern "C" {
 #endif
 
+#define PERL_NO_GET_CONTEXT
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"
@@ -40,7 +41,7 @@ typedef struct {
 
 static INLINE SV *
 get_bool (const char *name) {
-    SV * sv = get_sv( name, 1 );
+    SV * sv = sv_mortalcopy(get_sv( name, 1 ));
 
     SvREADONLY_on(sv);
     SvREADONLY_on( SvRV(sv) );
@@ -73,7 +74,14 @@ static INLINE int template_callback_uint32(unpack_user* u, uint32_t d, SV** o)
 { *o = sv_2mortal(newSVuv(d)); return 0; }
 
 static INLINE int template_callback_uint64(unpack_user* u, uint64_t d, SV** o)
-{ *o = sv_2mortal(newSVuv(d)); return 0; }
+{
+#if IVSIZE==4
+    *o = sv_2mortal(newSVnv(d));
+#else
+    *o = sv_2mortal(newSVuv(d));
+#endif
+    return 0;
+}
 
 static INLINE int template_callback_int8(unpack_user* u, int8_t d, SV** o)
 { *o = sv_2mortal(newSViv((long)d)); return 0; }
@@ -93,8 +101,9 @@ static INLINE int template_callback_float(unpack_user* u, float d, SV** o)
 static INLINE int template_callback_double(unpack_user* u, double d, SV** o)
 { *o = sv_2mortal(newSVnv(d)); return 0; }
 
+/* &PL_sv_undef is not so good. see http://gist.github.com/387743 */
 static INLINE int template_callback_nil(unpack_user* u, SV** o)
-{ *o = &PL_sv_undef; return 0; }
+{ *o = sv_newmortal(); return 0; }
 
 static INLINE int template_callback_true(unpack_user* u, SV** o)
 { *o = get_bool("Data::MessagePack::true") ; return 0; }
@@ -115,7 +124,8 @@ static INLINE int template_callback_map_item(unpack_user* u, SV** c, SV* k, SV*
 { hv_store_ent((HV*)SvRV(*c), k, v, 0); SvREFCNT_inc(v); return 0; }
 
 static INLINE int template_callback_raw(unpack_user* u, const char* b, const char* p, unsigned int l, SV** o)
-{ *o = sv_2mortal((l == 0) ? newSVpv("", 0) : newSVpv(p, l)); return 0; }
+{ *o = sv_2mortal((l==0) ? newSVpv("", 0) : newSVpv(p, l)); return 0; }
+/* { *o = newSVpvn_flags(p, l, SVs_TEMP); return 0; }  <= this does not works. */
 
 #define UNPACKER(from, name) \
 	msgpack_unpack_t *name; \

From 9420436c09e4e85383d119f45c18d16287661a7f Mon Sep 17 00:00:00 2001
From: tokuhirom <tokuhirom@gmail.com>
Date: Wed, 5 May 2010 16:22:40 +0900
Subject: [PATCH 07/16] Perl: added test case

---
 perl/t/07_break.t | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 perl/t/07_break.t

diff --git a/perl/t/07_break.t b/perl/t/07_break.t
new file mode 100644
index 0000000..dd27ad2
--- /dev/null
+++ b/perl/t/07_break.t
@@ -0,0 +1,12 @@
+use Test::More;
+use Data::MessagePack;
+use t::Util;
+no warnings 'uninitialized'; # i need this. i need this.
+
+plan tests => 1;
+
+my $d = Data::MessagePack->unpack(Data::MessagePack->pack([{x => undef}]));
+$d->[0]->{x} = 1;
+ok delete $d->[0]->{x};
+$d->[0] = 4;
+

From f0f574a15b1545de7eb4f2b64d6776b71d7c01cb Mon Sep 17 00:00:00 2001
From: tokuhirom <tokuhirom@gmail.com>
Date: Wed, 5 May 2010 16:55:06 +0900
Subject: [PATCH 08/16] Perl: releng for 0.10

---
 perl/Changes                 | 6 ++++++
 perl/lib/Data/MessagePack.pm | 2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/perl/Changes b/perl/Changes
index 47323a5..5cde8c2 100644
--- a/perl/Changes
+++ b/perl/Changes
@@ -1,3 +1,9 @@
+0.10
+
+    - added more test cases.
+    - fixed portability issue
+    - (reviewed by gfx++)
+
 0.09_01
 
     - fixed memory leak issue(reported by Maxime Soulé)
diff --git a/perl/lib/Data/MessagePack.pm b/perl/lib/Data/MessagePack.pm
index 52f89bb..d44f0aa 100644
--- a/perl/lib/Data/MessagePack.pm
+++ b/perl/lib/Data/MessagePack.pm
@@ -4,7 +4,7 @@ use warnings;
 use XSLoader;
 use 5.008001;
 
-our $VERSION = '0.09_01';
+our $VERSION = '0.10';
 our $PreferInteger = 0;
 
 our $true  = do { bless \(my $dummy = 1), "Data::MessagePack::Boolean" };

From ebe41a24f127407a269f2417af7dff0470b42f2d Mon Sep 17 00:00:00 2001
From: tokuhirom <tokuhirom@gmail.com>
Date: Wed, 5 May 2010 16:59:31 +0900
Subject: [PATCH 09/16] perl: releng for data-messagepack 0.11

---
 perl/Changes                 | 4 ++++
 perl/lib/Data/MessagePack.pm | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/perl/Changes b/perl/Changes
index 5cde8c2..dae261f 100644
--- a/perl/Changes
+++ b/perl/Changes
@@ -1,3 +1,7 @@
+0.11
+
+    - oops(no feature changes)
+
 0.10
 
     - added more test cases.
diff --git a/perl/lib/Data/MessagePack.pm b/perl/lib/Data/MessagePack.pm
index d44f0aa..ebc7eb7 100644
--- a/perl/lib/Data/MessagePack.pm
+++ b/perl/lib/Data/MessagePack.pm
@@ -4,7 +4,7 @@ use warnings;
 use XSLoader;
 use 5.008001;
 
-our $VERSION = '0.10';
+our $VERSION = '0.11';
 our $PreferInteger = 0;
 
 our $true  = do { bless \(my $dummy = 1), "Data::MessagePack::Boolean" };

From 09bae0a9e82b0c5697846e3e3e667a8679faf93d Mon Sep 17 00:00:00 2001
From: tokuhirom <tokuhirom@gmail.com>
Date: Wed, 5 May 2010 17:25:08 +0900
Subject: [PATCH 10/16] Perl: Test::Requires is not needed for this test.

---
 perl/xt/leaks/stream.t | 1 -
 1 file changed, 1 deletion(-)

diff --git a/perl/xt/leaks/stream.t b/perl/xt/leaks/stream.t
index 09ec984..7765d73 100644
--- a/perl/xt/leaks/stream.t
+++ b/perl/xt/leaks/stream.t
@@ -2,7 +2,6 @@ use strict;
 use warnings;
 use Test::More;
 use Data::MessagePack;
-use Test::Requires 'Test::LeakTrace';
 use Devel::Peek;
 
 plan skip_all => '$ENV{LEAK_TEST} is required' unless $ENV{LEAK_TEST};

From 1864df5ed0d9e268640bf362284517a7857954c9 Mon Sep 17 00:00:00 2001
From: tokuhirom <tokuhirom@gmail.com>
Date: Wed, 5 May 2010 17:25:25 +0900
Subject: [PATCH 11/16] Perl: cleanup Makefile.PL

---
 perl/Makefile.PL | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/perl/Makefile.PL b/perl/Makefile.PL
index 61afc3d..29710c2 100644
--- a/perl/Makefile.PL
+++ b/perl/Makefile.PL
@@ -1,7 +1,7 @@
 use inc::Module::Install;
 name 'Data-MessagePack';
 all_from 'lib/Data/MessagePack.pm';
-readme_from 'lib/Data/MessagePack.pm';
+readme_from('lib/Data/MessagePack.pm');
 
 perl_version '5.008005';
 license 'perl';
@@ -33,10 +33,10 @@ if ($Module::Install::AUTHOR && -d File::Spec->catfile('..', 'msgpack')) {
 }
 
 requires 'Test::More' => 0.95; # done_testing
+test_requires('Test::Requires');
 
-auto_set_repository;
+auto_set_repository();
 build_requires 'Test::More';
-use_test_base;
 auto_include;
 WriteAll;
 

From 262fe96c291de26424763016c0b42454229d9108 Mon Sep 17 00:00:00 2001
From: tokuhirom <tokuhirom@gmail.com>
Date: Wed, 5 May 2010 17:25:45 +0900
Subject: [PATCH 12/16] Perl: PERL_NO_GET_CONTEXT makes horrible dTHXs. remove
 it.

---
 perl/unpack.c | 1 -
 1 file changed, 1 deletion(-)

diff --git a/perl/unpack.c b/perl/unpack.c
index 70dc3cc..eb6e0dd 100644
--- a/perl/unpack.c
+++ b/perl/unpack.c
@@ -2,7 +2,6 @@
 extern "C" {
 #endif
 
-#define PERL_NO_GET_CONTEXT
 #include "EXTERN.h"
 #include "perl.h"
 #include "XSUB.h"

From 120a85a3e52086c9a746f7bf5f268432e741d8af Mon Sep 17 00:00:00 2001
From: tokuhirom <tokuhirom@gmail.com>
Date: Wed, 5 May 2010 17:28:38 +0900
Subject: [PATCH 13/16] Perl: releng for 0.12

---
 perl/Changes                 | 4 ++++
 perl/lib/Data/MessagePack.pm | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/perl/Changes b/perl/Changes
index dae261f..b03a9d0 100644
--- a/perl/Changes
+++ b/perl/Changes
@@ -1,3 +1,7 @@
+0.12
+
+    - PERL_NO_GET_CONTEXT makes horrible dTHXs. remove it.
+
 0.11
 
     - oops(no feature changes)
diff --git a/perl/lib/Data/MessagePack.pm b/perl/lib/Data/MessagePack.pm
index ebc7eb7..dcc713d 100644
--- a/perl/lib/Data/MessagePack.pm
+++ b/perl/lib/Data/MessagePack.pm
@@ -4,7 +4,7 @@ use warnings;
 use XSLoader;
 use 5.008001;
 
-our $VERSION = '0.11';
+our $VERSION = '0.12';
 our $PreferInteger = 0;
 
 our $true  = do { bless \(my $dummy = 1), "Data::MessagePack::Boolean" };

From be6376ee2d58602f2eac6ee6537cbdc8fbc526fe Mon Sep 17 00:00:00 2001
From: tokuhirom <tokuhirom@gmail.com>
Date: Sat, 8 May 2010 12:02:31 +0900
Subject: [PATCH 14/16] Perl: build_requires and requires are duped.

---
 perl/Makefile.PL | 1 -
 1 file changed, 1 deletion(-)

diff --git a/perl/Makefile.PL b/perl/Makefile.PL
index 29710c2..5bf43f3 100644
--- a/perl/Makefile.PL
+++ b/perl/Makefile.PL
@@ -36,7 +36,6 @@ requires 'Test::More' => 0.95; # done_testing
 test_requires('Test::Requires');
 
 auto_set_repository();
-build_requires 'Test::More';
 auto_include;
 WriteAll;
 

From f51123d009ebe285b91442d03e220560ee75ef21 Mon Sep 17 00:00:00 2001
From: tokuhirom <tokuhirom@gmail.com>
Date: Mon, 17 May 2010 05:49:39 +0900
Subject: [PATCH 15/16] oops

---
 perl/Makefile.PL | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/Makefile.PL b/perl/Makefile.PL
index 5bf43f3..58ab7c7 100644
--- a/perl/Makefile.PL
+++ b/perl/Makefile.PL
@@ -32,7 +32,7 @@ if ($Module::Install::AUTHOR && -d File::Spec->catfile('..', 'msgpack')) {
     }
 }
 
-requires 'Test::More' => 0.95; # done_testing
+requires 'Test::More' => 0.94; # done_testing
 test_requires('Test::Requires');
 
 auto_set_repository();

From 6ea75f3a9f1888d70bfaf97468922e30a7e7e661 Mon Sep 17 00:00:00 2001
From: tokuhirom <tokuhirom@gmail.com>
Date: Mon, 17 May 2010 05:52:32 +0900
Subject: [PATCH 16/16] Perl: do not use done_testing

---
 perl/t/06_stream_unpack2.t | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/perl/t/06_stream_unpack2.t b/perl/t/06_stream_unpack2.t
index dc82c41..eaf2cb4 100644
--- a/perl/t/06_stream_unpack2.t
+++ b/perl/t/06_stream_unpack2.t
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 use Data::MessagePack;
-use Test::More;
+use Test::More tests => 6;
 
 my $input = [(undef)x16];
 my $packed = Data::MessagePack->pack($input);
@@ -22,5 +22,4 @@ is_deeply(Data::MessagePack->unpack($packed), $input);
     is_deeply $up->data, $input;
 }
 
-done_testing;