From: Father Chrysostomos <sprout@cpan.org>
Date: Wed, 12 Sep 2012 20:31:40 +0000 (-0700)
Subject: toke.c: Under -DT, dump complement properly
X-Git-Tag: upstream/5.20.0~5460
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=74736ae6be18c8156adf865e9641f1f6d230ede1;p=platform%2Fupstream%2Fperl.git

toke.c: Under -DT, dump complement properly

Before:

$ ./miniperl -DT -e '~foo'
....
### 0:LEX_NORMAL/XSTATE ""
### <== ?? 126
....

After:

$ ./miniperl -DT -e '~foo'
....
### 0:LEX_NORMAL/XSTATE ""
### <== '~'
....
---

diff --git a/toke.c b/toke.c
index b09f1f9..1db835c 100644
--- a/toke.c
+++ b/toke.c
@@ -433,7 +433,7 @@ S_tokereport(pTHX_ I32 rv, const YYSTYPE* lvalp)
 	}
 	if (name)
 	    Perl_sv_catpv(aTHX_ report, name);
-	else if ((char)rv > ' ' && (char)rv < '~')
+	else if ((char)rv > ' ' && (char)rv <= '~')
 	    Perl_sv_catpvf(aTHX_ report, "'%c'", (char)rv);
 	else if (!rv)
 	    sv_catpvs(report, "EOF");