diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-14 10:53:55 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-14 10:53:55 +0000 |
| commit | 20408e3ccf502b6ce4033d8203710405ec9ef8f6 (patch) | |
| tree | afa7181c847061200a7323363f84fe42102c2aa3 /t/op/misc.t | |
| parent | 9b599b2a63d2324ddacddd9710c41b795a95070d (diff) | |
| download | perl-20408e3ccf502b6ce4033d8203710405ec9ef8f6.tar.gz | |
[win32] merge change#896 from maintbranch
p4raw-link: @896 on //depot/maint-5.004/perl: 0562b9ae2b0eff79632fc0164c13c34c06a019e2
p4raw-id: //depot/win32/perl@938
Diffstat (limited to 't/op/misc.t')
| -rwxr-xr-x | t/op/misc.t | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/t/op/misc.t b/t/op/misc.t index 582ffa7905..9ab6831859 100755 --- a/t/op/misc.t +++ b/t/op/misc.t @@ -368,6 +368,11 @@ EXPECT 1 2 ######## +-w +sub testme { my $a = "test"; { local $a = "new test"; print $a }} +EXPECT +Can't localize lexical variable $a at - line 2. +######## package X; sub ascalar { my $r; bless \$r } sub DESTROY { print "destroyed\n" }; |