From: Vincent Pit <vince@profvince.com>
Date: Thu, 19 Feb 2009 23:57:41 +0000 (+0100)
Subject: SUB SUB == SUB
X-Git-Tag: v0.07~1
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Upper.git;a=commitdiff_plain;h=cab38339ae33e6209dccf65521b7de672820b531

SUB SUB == SUB
---

diff --git a/lib/Scope/Upper.pm b/lib/Scope/Upper.pm
index 1570300..5f22266 100644
--- a/lib/Scope/Upper.pm
+++ b/lib/Scope/Upper.pm
@@ -231,10 +231,12 @@ The context of the scope just above C<$from>.
 =head3 C<SUB $from>
 
 The context of the closest subroutine above C<$from>.
+Note that C<$from> is returned if it is already a subroutine context ; hence C<SUB SUB == SUB>.
 
 =head3 C<EVAL $from>
 
 The context of the closest eval above C<$from>.
+Note that C<$from> is returned if it is already an eval context ; hence C<EVAL EVAL == EVAL>.
 
 =head2 Getting a context from a level