Changeset ef4700c for perl


Ignore:
Timestamp:
Apr 16, 2010, 6:04:05 PM (14 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:
75b0adb
Parents:
6e58ff2
git-author:
Nelson Elhage <nelhage@mit.edu> (04/08/10 22:07:19)
git-committer:
Nelson Elhage <nelhage@mit.edu> (04/16/10 18:04:05)
Message:
Properly quote strings containing newlines or tabs.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/lib/BarnOwl.pm

    rb30c256 ref4700c  
    363363        if ($str eq '') {
    364364            push @quoted, "''";
    365         } elsif ($str !~ /['" ]/) {
     365        } elsif ($str !~ /['" \n\t]/) {
    366366            push @quoted, "$str";
    367367        } elsif ($str !~ /'/) {
Note: See TracChangeset for help on using the changeset viewer.