From 390c5ad8a0424968dbcc4b69750d2c31f1872b4f Mon Sep 17 00:00:00 2001
From: Tokuhiro Matsuno <tokuhirom@gmail.com>
Date: Wed, 22 Jul 2009 13:41:31 +0900
Subject: [PATCH] added test case.

---
 perl/t/01_pack.t | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/perl/t/01_pack.t b/perl/t/01_pack.t
index 60c67f89..dbf7a9aa 100644
--- a/perl/t/01_pack.t
+++ b/perl/t/01_pack.t
@@ -15,6 +15,8 @@ sub pis ($$) {
 
 my @dat = (
     0,     '00',
+    (my $foo="0")+0, '00',
+    {2 => undef}, '81 a1 32 c0',
     1,     '01',
     127,   '7f',
     128,   'cc 80',