@@ -4196,40 +4196,40 @@ Perl_pv_uni_display(pTHX_ SV *dsv, const U8 *spv, STRLEN len, STRLEN pvlim,
4196
4196
SvPVCLEAR (dsv );
4197
4197
SvUTF8_off (dsv );
4198
4198
for (s = spv , e = s + len ; s < e ; s += UTF8SKIP (s )) {
4199
- UV u ;
4200
- bool ok = 0 ;
4201
-
4202
- if (pvlim && SvCUR (dsv ) >= pvlim ) {
4203
- truncated ++ ;
4204
- break ;
4205
- }
4206
-
4207
- u = utf8_to_uvchr_buf (s , e , 0 );
4208
- if (u < 256 ) {
4209
- const U8 c = (U8 ) u ;
4210
- if (flags & UNI_DISPLAY_BACKSLASH ) {
4211
- if ( isMNEMONIC_CNTRL (c )
4212
- && ( c != '\b'
4213
- || (flags & UNI_DISPLAY_BACKSPACE )))
4214
- {
4215
- const char * mnemonic = cntrl_to_mnemonic (c );
4216
- sv_catpvn (dsv , mnemonic , strlen (mnemonic ));
4217
- ok = 1 ;
4218
- }
4219
- else if (c == '\\' ) {
4220
- sv_catpvs (dsv , "\\\\" );
4221
- ok = 1 ;
4222
- }
4223
- }
4224
- /* isPRINT() is the locale-blind version. */
4225
- if (!ok && (flags & UNI_DISPLAY_ISPRINT ) && isPRINT (c )) {
4226
- const char string = c ;
4227
- sv_catpvn (dsv , & string , 1 );
4228
- ok = 1 ;
4229
- }
4230
- }
4231
- if (!ok )
4232
- Perl_sv_catpvf (aTHX_ dsv , "\\x{%" UVxf "}" , u );
4199
+ UV u ;
4200
+ bool ok = 0 ;
4201
+
4202
+ if (pvlim && SvCUR (dsv ) >= pvlim ) {
4203
+ truncated ++ ;
4204
+ break ;
4205
+ }
4206
+
4207
+ u = utf8_to_uvchr_buf (s , e , 0 );
4208
+ if (u < 256 ) {
4209
+ const U8 c = (U8 ) u ;
4210
+ if (flags & UNI_DISPLAY_BACKSLASH ) {
4211
+ if ( isMNEMONIC_CNTRL (c )
4212
+ && ( c != '\b'
4213
+ || (flags & UNI_DISPLAY_BACKSPACE )))
4214
+ {
4215
+ const char * mnemonic = cntrl_to_mnemonic (c );
4216
+ sv_catpvn (dsv , mnemonic , strlen (mnemonic ));
4217
+ ok = 1 ;
4218
+ }
4219
+ else if (c == '\\' ) {
4220
+ sv_catpvs (dsv , "\\\\" );
4221
+ ok = 1 ;
4222
+ }
4223
+ }
4224
+ /* isPRINT() is the locale-blind version. */
4225
+ if (!ok && (flags & UNI_DISPLAY_ISPRINT ) && isPRINT (c )) {
4226
+ const char string = c ;
4227
+ sv_catpvn (dsv , & string , 1 );
4228
+ ok = 1 ;
4229
+ }
4230
+ }
4231
+ if (!ok )
4232
+ Perl_sv_catpvf (aTHX_ dsv , "\\x{%" UVxf "}" , u );
4233
4233
}
4234
4234
if (truncated )
4235
4235
sv_catpvs (dsv , "..." );
0 commit comments