From: Vincent Pit <vince@profvince.com>
Date: Wed, 1 Apr 2015 17:17:54 +0000 (-0300)
Subject: Test 'temp $obj->meth;'
X-Git-Tag: v0.02~1
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=94ab589e95cb92b6c1d276ee424914398ecbe698;p=perl%2Fmodules%2FVariable-Temp.git

Test 'temp $obj->meth;'
---

diff --git a/t/21-lvalue-sub.t b/t/21-lvalue-sub.t
index f1ed334..42aed97 100644
--- a/t/21-lvalue-sub.t
+++ b/t/21-lvalue-sub.t
@@ -9,7 +9,7 @@ use Test::More;
 
 BEGIN {
  if ("$]" >= 5.016) {
-  plan tests => 10;
+  plan tests => 12;
  } else {
   plan skip_all => 'perl 5.16 required to have \$ proto accept sub entries';
  }
@@ -67,3 +67,10 @@ $x->is_value(1);
 }
 
 $x->is_value(1);
+
+{
+ temp $x->value;
+ $x->is_value(undef);
+}
+
+$x->is_value(1);