diff options
| author | Eric Schulte <schulte.eric@gmail.com> | 2013-03-24 18:25:42 -0600 |
|---|---|---|
| committer | Eric Schulte <schulte.eric@gmail.com> | 2013-03-25 07:39:40 -0600 |
| commit | 727a22e3270d2ecef5209d22bc1b7ca107e57a2e (patch) | |
| tree | 38018f0e222e44f4d2d028c33060130048fbbd9c | |
| parent | 9ae225f48aee2dafa8a053a752a188d40d678213 (diff) | |
| download | org-mode-727a22e3270d2ecef5209d22bc1b7ca107e57a2e.tar.gz | |
print Perl variables with a format string
Don't use princ because it doesn't always return a string.
Thanks to Rick Frankel for pointing this out.
* lisp/ob-perl.el (org-babel-perl--var-to-perl): Print Perl variables
with a format string.
| -rw-r--r-- | lisp/ob-perl.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/ob-perl.el b/lisp/ob-perl.el index 8bc84f0..117782f 100644 --- a/lisp/ob-perl.el +++ b/lisp/ob-perl.el @@ -87,7 +87,7 @@ specifying a var of the same value." (concat "[\n" (mapconcat #'org-babel-perl--var-to-perl var "") prefix "]")) - (concat "q(" (princ var) ")")) + (format "q(%s)" var)) (unless (zerop org-babel-perl--lvl) ",\n"))))) (defvar org-babel-perl-buffers '(:default . nil)) |