From mboxrd@z Thu Jan 1 00:00:00 1970 From: Rick Frankel Subject: [BUG] ob-perl variable handling broken Date: Sun, 24 Mar 2013 19:54:33 -0400 Message-ID: Mime-Version: 1.0 (generated by SEMI 1.14.7 - "Harue") Content-Type: text/plain; charset=US-ASCII Return-path: Received: from eggs.gnu.org ([208.118.235.92]:42217) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UJukC-0005ME-J9 for emacs-orgmode@gnu.org; Sun, 24 Mar 2013 19:54:36 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UJukA-0005YW-0t for emacs-orgmode@gnu.org; Sun, 24 Mar 2013 19:54:32 -0400 Received: from [204.62.15.78] (port=43157 helo=mail.rickster.com) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UJuk9-0005YS-TK for emacs-orgmode@gnu.org; Sun, 24 Mar 2013 19:54:29 -0400 Received: from BigDog.local (pool-72-89-40-63.nycmny.fios.verizon.net [72.89.40.63]) by mail.rickster.com (Postfix) with ESMTPS id F1F5522A0F for ; Sun, 24 Mar 2013 19:54:29 -0400 (EDT) Received: from BigDog.local.rickster.com (localhost [IPv6:::1]) by BigDog.local (Postfix) with ESMTP id 1DD2E1D698AB for ; Sun, 24 Mar 2013 19:54:34 -0400 (EDT) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org The commit ca125b82b changed a lot of the variable handling in ob-perl, and it now will not accept tables as input. Below is an org doc with an example, the error message and a backtrace. rick ----- * Can't use table as input #+name: t1 | 1 | #+begin_src perl :var t=t1 :results value $t #+end_src ** Error mapconcat: Wrong type argument: sequencep, 1 #+begin_example org-babel-perl--var-to-perl(1) mapconcat(org-babel-perl--var-to-perl (1) "") org-babel-perl--var-to-perl((1)) mapconcat(org-babel-perl--var-to-perl ((1)) "") org-babel-perl--var-to-perl(((1))) org-babel-perl--var-to-perl(((1)) t) #[(pair) "\301A@\"\207" [pair org-babel-perl--var-to-perl] 3]((t (1))) mapcar(#[(pair) "\301A@\"\207" [pair org-babel-perl--var-to-perl] 3] ((t (1)))) org-babel-variable-assignments:perl(((:comments . "") (:shebang . "") (:cache . "no") (:padline . "") (:noweb . "no") (:tangle . "no") (:exports . "results") (:results . "replace value") (:var t (1)) (:session . "none") (:hlines . "no") (:padnewline . "yes") (:result-type . value) (:result-params "value" "replace") (:rowname-names) (:colname-names))) org-babel-execute:perl("$t" ((:comments . "") (:shebang . "") (:cache . "no") (:padline . "") (:noweb . "no") (:tangle . "no") (:exports . "results") (:results . "replace value") (:var t (1)) (:session . "none") (:hlines . "no") (:padnewline . "yes") (:result-type . value) (:result-params "value" "replace") (:rowname-names) (:colname-names))) org-babel-execute-src-block(nil ("perl" "$t" ((:comments . "") (:shebang . "") (:cache . "no") (:padline . "") (:noweb . "no") (:tangle . "no") (:exports . "results") (:results . "replace value") (:var t (1)) (:session . "none") (:hlines . "no") (:padnewline . "yes") (:result-type . value) (:result-params "value" "replace") (:rowname-names) (:colname-names)) "" nil 0)) org-babel-execute-src-block-maybe() org-babel-execute-maybe() org-babel-execute-safely-maybe() run-hook-with-args-until-success(org-babel-execute-safely-maybe) org-ctrl-c-ctrl-c(nil) call-interactively(org-ctrl-c-ctrl-c nil nil) command-execute(org-ctrl-c-ctrl-c) #+end_example