Browse Source

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´.
Achim Gratz 12 years ago
parent
commit
8ea4967643
1 changed files with 2 additions and 1 deletions
  1. 2 1
      lisp/ob-perl.el

+ 2 - 1
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;
 	    }