summaryrefslogtreecommitdiff
path: root/t/op/local.t
diff options
context:
space:
mode:
Diffstat (limited to 't/op/local.t')
-rwxr-xr-xt/op/local.t12
1 files changed, 11 insertions, 1 deletions
diff --git a/t/op/local.t b/t/op/local.t
index 3e30306218..a034539cae 100755
--- a/t/op/local.t
+++ b/t/op/local.t
@@ -2,7 +2,7 @@
# $RCSfile: local.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:04 $
-print "1..24\n";
+print "1..25\n";
sub foo {
local($a, $b) = @_;
@@ -58,3 +58,13 @@ $a = 'outer';
if (1) { local $a = 'inner' }
print +($a eq 'outer') ? "" : "not ", "ok 24\n";
+# see if localization works when scope unwinds
+
+local $m = 5;
+eval {
+ for $m (6) {
+ local $m = 7;
+ die "bye";
+ }
+};
+print $m == 5 ? "" : "not ", "ok 25\n";