- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/lib/BarnOwl/Style/Default.pm
r0fe69d2 rad0dedd 168 168 ? '@color(cyan)' : ''; 169 169 170 my $chars = $oneline ? qr/[[:cntrl:]]/ : qr/[^[:print:] \n]|[\r\cK\f]/;170 my $chars = $oneline ? qr/[[:cntrl:]]/ : qr/[^[:print:]]|[\r\cK\f]/; 171 171 172 172 $s =~ s/($chars)/ … … 179 179 180 180 As above, but always be conservative, and replace with a '?' instead 181 of something m ore elaborate.181 of something mmore elaborate. 182 182 183 183 =cut
Note: See TracChangeset
for help on using the changeset viewer.