forked from mirrors/org-mode
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:
parent
af6f32af1a
commit
8ea4967643
|
@ -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;
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue