From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 29 May 2001 00:36:06 +0000 (+0000)
Subject: Add a test for 20010528.007, fixed in #10272.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=585602face2fbfab449f8ea9c11aa2d71e51b267;p=p5sagit%2Fp5-mst-13.2.git

Add a test for 20010528.007, fixed in #10272.

p4raw-id: //depot/perl@10273
---

diff --git a/t/op/misc.t b/t/op/misc.t
index 9248930..90df19a 100755
--- a/t/op/misc.t
+++ b/t/op/misc.t
@@ -688,3 +688,9 @@ ok
 EXPECT
 syntax error at - line 2, near "${}"
 Execution of - aborted due to compilation errors.
+########
+# Bug 20010528.007
+"\x{"
+EXPECT
+Missing right brace on \x{} at - line 2, within string
+Execution of - aborted due to compilation errors.
diff --git a/toke.c b/toke.c
index b052e9a..ec2711b 100644
--- a/toke.c
+++ b/toke.c
@@ -1635,7 +1635,7 @@ S_scan_const(pTHX_ char *start)
     *d = '\0';
     SvCUR_set(sv, d - SvPVX(sv));
     if (SvCUR(sv) >= SvLEN(sv))
-      Perl_croak(aTHX_ "panic:constant overflowed allocated space");
+      Perl_croak(aTHX_ "panic: constant overflowed allocated space");
 
     SvPOK_on(sv);
     if (has_utf8) {