@INC = '../lib';
}
-print "1..72\n";
+print "1..73\n";
@A::ISA = 'B';
@B::ISA = 'C';
eval { sub AUTOLOAD { "ok ", shift, "\n"; } };
print nonsuch(++$cnt);
+# Bug ID 20010902.002
+test (
+ eval q[
+ $x = 'x';
+ sub Foo::x : lvalue { $x }
+ Foo->$x = 'ok';
+ ] || $@, 'ok'
+);
+
print "# $cnt tests completed\n";