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´.
This commit is contained in:
Achim Gratz 2013-04-07 11:20:42 +02:00
parent af6f32af1a
commit 8ea4967643
1 changed files with 2 additions and 1 deletions

View File

@ -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;
}