summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAchim Gratz <Stromeko@Stromeko.DE>2013-04-07 09:20:42 (GMT)
committer Achim Gratz <Stromeko@Stromeko.DE>2013-04-07 09:21:14 (GMT)
commit8ea49676434574e94b0ab3b28cc2c1c8941808fc (patch)
tree58d2d8621f7bdd4b29bae3567e5bc5cf80433981
parentaf6f32af1ab4328f9fb9eb84633e4761ce9126f7 (diff)
downloadorg-mode-8ea49676434574e94b0ab3b28cc2c1c8941808fc.zip
org-mode-8ea49676434574e94b0ab3b28cc2c1c8941808fc.tar.gz
ob-perl: use TAB as separator for table results
* lisp/ob-perl.el (org-babel-perl-wrapper-method): Use TAB as separator for table results as expected by `org-babel-import-elisp-from-fileĀ“.
-rw-r--r--lisp/ob-perl.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/ob-perl.el b/lisp/ob-perl.el
index 117782f..d90ca18 100644
--- a/lisp/ob-perl.el
+++ b/lisp/ob-perl.el
@@ -106,10 +106,11 @@ specifying a var of the same value."
my $rt = ref $rv;
if (qq(ARRAY) eq $rt) {
local $\\=$/;
+ local $,=qq(\t);
foreach my $rv ( @$rv ) {
my $rt = ref $rv;
if (qq(ARRAY) eq $rt) {
- print join q(|), @$rv;
+ print @$rv;
} else {
print $rv;
}