# New Ticket Created by  Tadeusz Sośnierz 
# Please include the string:  [perl #77568]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=77568 >


The 'in Perl 6 use lines() or ()' error message in current Rakudo 
doesn't tell much about the misuse of <>. This patch changes the message 
to the one similar to STD's one.

Regards,
Tadeusz Sośnierz
From 914560536757f109baacdecde5bc6f0316278e00 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Tadeusz=20So=C5=9Bnierz?= <[email protected]>
Date: Tue, 31 Aug 2010 14:14:27 +0200
Subject: [PATCH] Added more info to an error message for <>

---
 src/Perl6/Grammar.pm |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/src/Perl6/Grammar.pm b/src/Perl6/Grammar.pm
index bbda4df..cd7d389 100644
--- a/src/Perl6/Grammar.pm
+++ b/src/Perl6/Grammar.pm
@@ -1495,7 +1495,7 @@ token circumfix:sym<[ ]> { '[' <semilist> ']' }
 token circumfix:sym<ang> {
     <?[<]>
     [ <?before '<STDIN>' > <.obs('<STDIN>', '$*IN.lines')> ]?
-    [ <?before '<>' > <.obs('<>', 'lines() or ()')> ]?
+    [ <?before '<>' > <.obs('<>', 'lines() to read input, (\'\') to represent a null string or () to represent an empty list')> ]?
     <quote_EXPR: ':q', ':w'>
 }
 token circumfix:sym<« »> { <?[«]>  <quote_EXPR: ':qq', ':w'> }
-- 
1.7.0.4

Reply via email to