Re: [perl #57576] Twigils on reported in "Scop not found" error messages

[Vasily Chekalkin]

References: <[EMAIL PROTECTED]> <[EMAIL PROTECTED]> <[EMAIL PROTECTED]>
In-Reply-To: <[EMAIL PROTECTED]>
Content-Type: multipart/mixed;
 boundary="------------010101040507020100000809"
X-Posted-By: 122.110.127.219

--------------010101040507020100000809
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit

Hello.

Trivial patch attached.

-- 
Bacek

--------------010101040507020100000809
Content-Type: text/x-patch;
 name="57576.patch"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="57576.patch"

diff --git a/languages/perl6/src/parser/actions.pm 
b/languages/perl6/src/parser/actions.pm
index 394b419..5ad4325 100644
--- a/languages/perl6/src/parser/actions.pm
+++ b/languages/perl6/src/parser/actions.pm
@@ -2287,8 +2287,8 @@ method variable($/, $key) {
             );
         }
         else {
-            # Variable. [!:^] twigil should be kept in the name.
-            if $twigil eq '!' || $twigil eq ':' || $twigil eq '^' { $name := 
$twigil ~ ~$name; }
+            # Variable. [!:^?] twigil should be kept in the name.
+            if $twigil eq '!' || $twigil eq ':' || $twigil eq '^' || $twigil 
eq '?' { $name := $twigil ~ ~$name; }
 
             # All but subs should keep their sigils.
             my $sigil := '';

--------------010101040507020100000809--