diff --git a/perl/t/01_pack.t b/perl/t/01_pack.t
index 50fd6631..8c619809 100644
--- a/perl/t/01_pack.t
+++ b/perl/t/01_pack.t
@@ -55,6 +55,8 @@ my @dat = (
     [0, -128, -1, 0, -32768, -1, 0, -2147483648, -1], '99 00 d0 80 ff 00 d1 80 00 ff 00 d2 80 00 00 00 ff',
     2147483648, 'ce 80 00 00 00',
     -2147483648, 'd2 80 00 00 00',
+    'a' x 0x0100, 'da 01 00' . (' 61' x 0x0100),
+    [(undef) x 0x0100], 'dc 01 00' . (' c0' x 0x0100),
 );
 plan tests => 1*(scalar(@dat)/2);
 
diff --git a/perl/t/data.pl b/perl/t/data.pl
index 300eec1b..b7bbaf1a 100644
--- a/perl/t/data.pl
+++ b/perl/t/data.pl
@@ -22,6 +22,7 @@ no warnings; # i need this, i need this.
     '82 c2 81 c0 c0 c3 81 c0 80', {false,{undef,undef}, true,{undef,{}}},
     '96 de 00 00 de 00 01 c0 c2 de 00 02 c0 c2 c3 c2 df 00 00 00 00 df 00 00 00 01 c0 c2 df 00 00 00 02 c0 c2 c3 c2',
         [{}, {undef,false}, {true,false, undef,false}, {}, {undef,false}, {true,false, undef,false}],
+    'dc 01 00'       . (' c0' x 0x0100),     [(undef) x 0x0100],
     'ce 00 ff ff ff' => ''.0xFFFFFF,
     'aa 34 32 39 34 39 36 37 32 39 35' => ''.0xFFFFFFFF,
     'ab 36 38 37 31 39 34 37 36 37 33 35' => ''.0xFFFFFFFFF,