Introduce SCOPE()

[perl/modules/Scope-Upper.git] / t / 55-unwind-multi.t

diff --git a/t/55-unwind-multi.t b/t/55-unwind-multi.t
index aa37026a69568463dfa937504720c441333d9da3..dd8c727393197fd3873028128951e5f4e9644d41 100644 (file)
--- a/t/55-unwind-multi.t
+++ b/t/55-unwind-multi.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 13;
 
-use Scope::Upper qw/unwind/;
+use Scope::Upper qw/unwind SCOPE/;
 
 my ($l1, $l2);
 
@@ -17,10 +17,10 @@ sub c {
   unwind("eval", eval {
    do {
     for (3, 4, 5) {
-     1, unwind('from', 'the', 'sub', 'c' => $l1);
+     1, unwind('from', 'the', 'sub', 'c' => SCOPE $l1);
     }
    }
-  } => $l2);
+  } => SCOPE $l2);
  }->(2, 3, 4);
  return 'in c'
 }