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] 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 00000000..dd27ad25
--- /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;
+