Ignore:
Timestamp:
Mar 29, 2010, 11:12:01 PM (15 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, release-1.10, release-1.6, release-1.7, release-1.8, release-1.9
Children:
66e409c
Parents:
9186c75
git-author:
Nelson Elhage <nelhage@mit.edu> (03/29/10 23:07:53)
git-committer:
Nelson Elhage <nelhage@mit.edu> (03/29/10 23:12:01)
Message:
Don't assume that [:print:] includes "\n".

In particular, as of perl 5.12, it does not.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • perl/lib/BarnOwl/Style/Default.pm

    r25bfc10 r0fe69d2  
    168168    ? '@color(cyan)' : '';
    169169
    170   my $chars = $oneline ? qr/[[:cntrl:]]/ : qr/[^[:print:]]|[\r\cK\f]/;
     170  my $chars = $oneline ? qr/[[:cntrl:]]/ : qr/[^[:print:]\n]|[\r\cK\f]/;
    171171
    172172  $s =~ s/($chars)/
Note: See TracChangeset for help on using the changeset viewer.