Changeset fb7742c26c2c6ef87a9fafbc1dd594987d2ef4c9

Timestamp:

10/23/09 01:10:14 (5 weeks ago)

Author:

Anders Kaseorg <andersk@mit.edu>

git-author:

Anders Kaseorg <andersk@mit.edu> / 2009-10-23T01:08:22Z-0400

Parents:

3c428d48282cf713201d1675e0b568003c595d46

Children:

bdbec0aacb083e63e1d0061e44722f3b1a05942f

git-committer:

Anders Kaseorg <andersk@mit.edu> / 2009-10-23T01:10:14Z-0400

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>

Files:

• perlconfig.c (modified) (2 diffs)

perlconfig.c

@@ -396 +396 @@
   STRLEN len;
   SV *response;
-  const char *preout;
   char *out;
 
@@ -411 +410 @@
   }
 
-  preout=SvPV(response, len);
-  if (len == 0 || preout[len - 1] != '\n')
-    out = owl_sprintf("%s\n", preout);
-  else
-    out = owl_strdup(preout);
+  out = owl_strdup(SvPV(response, len));
   FREETMPS;
   LEAVE;