Changeset fb7742c for perlconfig.c

Timestamp:

Oct 23, 2009, 1:10:14 AM (16 years ago)

Author:

Anders Kaseorg <andersk@mit.edu>

Branches:

master, release-1.10, 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:

• 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;