diff options
author | Achim Gratz <Stromeko@Stromeko.DE> | 2013-04-07 11:20:42 +0200 |
---|---|---|
committer | Achim Gratz <Stromeko@Stromeko.DE> | 2013-04-07 11:21:14 +0200 |
commit | 8ea49676434574e94b0ab3b28cc2c1c8941808fc (patch) | |
tree | 58d2d8621f7bdd4b29bae3567e5bc5cf80433981 | |
parent | af6f32af1ab4328f9fb9eb84633e4761ce9126f7 (diff) | |
download | 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.el | 3 |
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; } |