From 301d9039fb19ffce344369e333240632e80d95d5 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 10 Feb 1998 19:15:51 -0500
Subject: [win32] merge a maint patch 	Message-Id:
 <199802110515.AAA23700@aatma.engin.umich.edu> 	Subject: Re: "local" can crash
 perl-4.00[34] on Solaris-x86 & FreeBSD

p4raw-id: //depot/win32/perl@497
---
 t/op/local.t | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 't/op')

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";
-- 
cgit v1.2.1