Test 'temp $obj->meth;'

diff --git a/t/21-lvalue-sub.t b/t/21-lvalue-sub.t
index f1ed334fb8fe3a2d841683a6e60085633e4c8102..42aed9750114c770647eb79a9f5a13c57dd94588 100644 (file)
--- a/t/21-lvalue-sub.t
+++ b/t/21-lvalue-sub.t
@@ -9,7 +9,7 @@ use Test::More;
 
 BEGIN {
  if ("$]" >= 5.016) {
 
 BEGIN {
  if ("$]" >= 5.016) {

-  plan tests => 10;
+  plan tests => 12;

  } else {
   plan skip_all => 'perl 5.16 required to have \$ proto accept sub entries';
  }
  } 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);
 }
 
 $x->is_value(1);

+
+{
+ temp $x->value;
+ $x->is_value(undef);
+}
+
+$x->is_value(1);