From d32f2495b04e916e41d6514e2a6126c7223b49c9 Mon Sep 17 00:00:00 2001
From: Simon Cozens <simon@netthink.co.uk>
Date: Wed, 27 Dec 2000 02:30:03 +0000
Subject: lvalue AUTOLOAD. No, really. Message-ID:
 <20001227023003.A7677@deep-dark-truthful-mirror.perlhacker.org>

p4raw-id: //depot/perl@8243
---
 t/pragma/sub_lval.t | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 't/pragma')

diff --git a/t/pragma/sub_lval.t b/t/pragma/sub_lval.t
index 660e72d646..1b8b73a7d8 100755
--- a/t/pragma/sub_lval.t
+++ b/t/pragma/sub_lval.t
@@ -1,4 +1,4 @@
-print "1..46\n";
+print "1..47\n";
 
 BEGIN {
     chdir 't' if -d 't';
@@ -427,3 +427,12 @@ $a = \&lv1nn;
 $a->() = 8;
 print "# '$nnewvar'.\nnot " unless $nnewvar eq '8';
 print "ok 46\n";
+
+# This must happen at run time
+eval {
+    sub AUTOLOAD : lvalue { $newvar };
+};
+foobar() = 12;
+print "# '$newvar'.\nnot " unless $newvar eq "12";
+print "ok 47\n";
+
-- 
cgit v1.2.1