diff options
| author | Bastien Guerry <bzg@gnu.org> | 2012-09-30 17:14:59 +0200 |
|---|---|---|
| committer | Bastien Guerry <bzg@gnu.org> | 2012-09-30 17:14:59 +0200 |
| commit | 8223b1d23361b74ede10bac47974ce7803804380 (patch) | |
| tree | 3a2491c5193fed1bef14acd45092c0b9736fa5d6 /lisp/org/ob-perl.el | |
| parent | 163227893c97b5b41039ea9d5ceadb7e5b2d570c (diff) | |
| download | emacs-8223b1d23361b74ede10bac47974ce7803804380.tar.gz | |
Sync Org 7.9.2 from the commit tagged "release_7.9.2" in Org's Git repo.
Diffstat (limited to 'lisp/org/ob-perl.el')
| -rw-r--r-- | lisp/org/ob-perl.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/org/ob-perl.el b/lisp/org/ob-perl.el index 71e02b05054..abf0ed637d7 100644 --- a/lisp/org/ob-perl.el +++ b/lisp/org/ob-perl.el @@ -47,7 +47,7 @@ This function is called by `org-babel-execute-src-block'." (result-type (cdr (assoc :result-type params))) (full-body (org-babel-expand-body:generic body params (org-babel-variable-assignments:perl params))) - (session (org-babel-perl-initiate-session session))) + (session (org-babel-perl-initiate-session session))) (org-babel-reassemble-table (org-babel-perl-evaluate session full-body result-type) (org-babel-pick-name @@ -57,10 +57,10 @@ This function is called by `org-babel-execute-src-block'." (defun org-babel-prep-session:perl (session params) "Prepare SESSION according to the header arguments in PARAMS." - (error "Sessions are not supported for Perl.")) + (error "Sessions are not supported for Perl")) (defun org-babel-variable-assignments:perl (params) - "Return list of perl statements assigning the block's variables" + "Return list of perl statements assigning the block's variables." (mapcar (lambda (pair) (format "$%s=%s;" @@ -81,8 +81,8 @@ specifying a var of the same value." (defvar org-babel-perl-buffers '(:default . nil)) (defun org-babel-perl-initiate-session (&optional session params) - "Return nil because sessions are not supported by perl" -nil) + "Return nil because sessions are not supported by perl." + nil) (defvar org-babel-perl-wrapper-method " @@ -101,7 +101,7 @@ print o join(\"\\n\", @r), \"\\n\"") If RESULT-TYPE equals 'output then return a list of the outputs of the statements in BODY, if RESULT-TYPE equals 'value then return the value of the last statement in BODY, as elisp." - (when session (error "Sessions are not supported for Perl.")) + (when session (error "Sessions are not supported for Perl")) (case result-type (output (org-babel-eval org-babel-perl-command body)) (value (let ((tmp-file (org-babel-temp-file "perl-"))) |