From: Lukas Mai <l.mai@web.de>
Date: Thu, 21 Jun 2012 10:49:44 +0000 (+0200)
Subject: error messages for proto/attr more similar to perl core
X-Git-Tag: v0.06_01~28
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f34187b85590887787995a0ea4446b3015374ad8;p=p5sagit%2FFunction-Parameters.git

error messages for proto/attr more similar to perl core
---

diff --git a/Parameters.xs b/Parameters.xs
index 53cb6bf..11e271f 100644
--- a/Parameters.xs
+++ b/Parameters.xs
@@ -234,7 +234,7 @@ static int parse_fun(pTHX_ OP **pop, const char *keyword_ptr, STRLEN keyword_len
 		} else {
 			sv = sv_2mortal(newSVpvs(""));
 			if (!S_scan_str(aTHX_ sv, TRUE, TRUE)) {
-				croak("In %"SVf": malformed prototype", SVfARG(declarator));
+				croak("In %"SVf": prototype not terminated", SVfARG(declarator));
 			}
 			sv_catsv(gen, sv);
 			lex_read_space(0);
@@ -275,7 +275,7 @@ static int parse_fun(pTHX_ OP **pop, const char *keyword_ptr, STRLEN keyword_len
 			if (c == '(') {
 				sv = sv_2mortal(newSVpvs(""));
 				if (!S_scan_str(aTHX_ sv, TRUE, TRUE)) {
-					croak("In %"SVf": malformed attribute argument list", SVfARG(declarator));
+					croak("In %"SVf": unterminated attribute parameter in attribute list", SVfARG(declarator));
 				}
 				sv_catsv(gen, sv);
 				lex_read_space(0);