From e6e7068b743187ea85db546863975a687c18915d Mon Sep 17 00:00:00 2001
From: Dave Mitchell <davem@fdisolutions.com>
Date: Fri, 20 Feb 2004 14:18:13 +0000
Subject: [PATCH] Document the SVf_PADSTALE flag

p4raw-id: //depot/perl@22348
---
 pad.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/pad.c b/pad.c
index 06f0417..316833d 100644
--- a/pad.c
+++ b/pad.c
@@ -91,6 +91,12 @@ become so if C<my sub foo {}> is implemented.)
 Note that formats are treated as anon subs, and are cloned each time
 write is called (if necessary).
 
+The flag SVf_PADSTALE is cleared on lexicals each time the my() is executed,
+and set on scope exit. This allows the 'Variable $x is not available' warning
+to be generated in evals, such as 
+
+    { my $x = 1; sub f { eval '$x'} } f();
+
 =cut
 */
 
-- 
2.7.4