Changeset fb7742c for perlconfig.c


Ignore:
Timestamp:
Oct 23, 2009, 1:10:14 AM (12 years ago)
Author:
Anders Kaseorg <andersk@mit.edu>
Branches:
master, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
bdbec0a
Parents:
3c428d4
git-author:
Anders Kaseorg <andersk@mit.edu> (10/23/09 01:08:22)
git-committer:
Anders Kaseorg <andersk@mit.edu> (10/23/09 01:10:14)
Message:
owl_perlconfig_execute: Do not arbitrarily add a newline to the return.

The primary effect is that zsigs no longer get trailing newlines
introduced by commit de3f6412cb0dc1b4e1044541558395c4c1fd807c.

Signed-off-by: Anders Kaseorg <andersk@mit.edu>
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlconfig.c

    r68f358c rfb7742c  
    396396  STRLEN len;
    397397  SV *response;
    398   const char *preout;
    399398  char *out;
    400399
     
    411410  }
    412411
    413   preout=SvPV(response, len);
    414   if (len == 0 || preout[len - 1] != '\n')
    415     out = owl_sprintf("%s\n", preout);
    416   else
    417     out = owl_strdup(preout);
     412  out = owl_strdup(SvPV(response, len));
    418413  FREETMPS;
    419414  LEAVE;
Note: See TracChangeset for help on using the changeset viewer.