Skip to content

Instantly share code, notes, and snippets.

Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save snarkyboojum/488688 to your computer and use it in GitHub Desktop.
Save snarkyboojum/488688 to your computer and use it in GitHub Desktop.
From 43942d01f6b43ffd00193b2d3e91ccb3efebe679 Mon Sep 17 00:00:00 2001
From: snarkyboojum <snarkyboojum@gmail.com>
Date: Sat, 24 Jul 2010 23:15:02 +1000
Subject: [PATCH] Update "obsolete error" message
Change message for obsolete usage to "Unsupported", inline with
Perl 6 usage.
---
src/Regex/P6Regex/Grammar.pm | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/Regex/P6Regex/Grammar.pm b/src/Regex/P6Regex/Grammar.pm
index 9fab92d..ebbcaee 100644
--- a/src/Regex/P6Regex/Grammar.pm
+++ b/src/Regex/P6Regex/Grammar.pm
@@ -1,8 +1,8 @@
grammar Regex::P6Regex::Grammar is HLL::Grammar;
·
method obs ($old, $new, $when = 'in Perl 6') {
- self.panic('Obsolete use of ' ~ ~$old ~ ';'
- ~ ~$when ~ ' please use ' ~ ~$new ~ ' instead');
+ self.panic('Unsupported use of ' ~ ~$old ~ ';'
+ ~ ~$when ~ ' please use ' ~ ~$new);
}
·
token ws { [ \s+ | '#' \N* ]* }
--·
1.7.0.4
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment