tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

ob-perl: use TAB as separator for table results

Browse source 
* 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
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ob-perl.el
View file

@ -106,10 +106,11 @@ specifying a var of the same value."
my $rt = ref $rv; my $rt = ref $rv;
if (qq(ARRAY) eq $rt) { if (qq(ARRAY) eq $rt) {
local $\\=$/; local $\\=$/;
local $,=qq(\t);
foreach my $rv ( @$rv ) { foreach my $rv ( @$rv ) {
my $rt = ref $rv; my $rt = ref $rv;
if (qq(ARRAY) eq $rt) { if (qq(ARRAY) eq $rt) {
print join q(|), @$rv; print @$rv;
} else { } else {
print $rv; print $rv;
} }