blob: a6d3d5bad8fd04cdf7d2c358516e5a7481790d9f (plain)

ofs	hex dump	ascii
0000	3b 45 4c 43 17 00 00 00 0a 3b 3b 3b 20 43 6f 6d 70 69 6c 65 64 20 62 79 20 6c 75 6b 65 40 48 50	;ELC.....;;;.Compiled.by.luke@HP
0020	2d 64 76 36 34 32 36 75 73 2d 75 31 30 31 30 20 6f 6e 20 53 75 6e 20 46 65 62 20 32 37 20 31 32	-dv6426us-u1010.on.Sun.Feb.27.12
0040	3a 35 37 3a 32 38 20 32 30 31 31 0a 3b 3b 3b 20 66 72 6f 6d 20 66 69 6c 65 20 2f 68 6f 6d 65 2f	:57:28.2011.;;;.from.file./home/
0060	6c 75 6b 65 2f 2e 65 6d 61 63 73 2e 64 2f 6f 72 67 2d 37 2e 34 2f 6c 69 73 70 2f 6f 62 2d 70 65	luke/.emacs.d/org-7.4/lisp/ob-pe
0080	72 6c 2e 65 6c 0a 3b 3b 3b 20 69 6e 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 20 32 33 2e 31 2e	rl.el.;;;.in.Emacs.version.23.1.
00a0	31 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74 69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 3b	1.;;;.with.all.optimizations...;
00c0	3b 3b 20 54 68 69 73 20 66 69 6c 65 20 75 73 65 73 20 64 79 6e 61 6d 69 63 20 64 6f 63 73 74 72	;;.This.file.uses.dynamic.docstr
00e0	69 6e 67 73 2c 20 66 69 72 73 74 20 61 64 64 65 64 20 69 6e 20 45 6d 61 63 73 20 31 39 2e 32 39	ings,.first.added.in.Emacs.19.29
0100	2e 0a 28 69 66 20 28 61 6e 64 20 28 62 6f 75 6e 64 70 20 27 65 6d 61 63 73 2d 76 65 72 73 69 6f	..(if.(and.(boundp.'emacs-versio
0120	6e 29 0a 09 20 28 3c 20 28 61 72 65 66 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 20 28 31 2d 20	n)...(<.(aref.emacs-version.(1-.
0140	28 6c 65 6e 67 74 68 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 29 29 29 20 3f 41 29 0a 09 20 28	(length.emacs-version))).?A)...(
0160	6f 72 20 28 61 6e 64 20 28 62 6f 75 6e 64 70 20 27 65 70 6f 63 68 3a 3a 76 65 72 73 69 6f 6e 29	or.(and.(boundp.'epoch::version)
0180	20 65 70 6f 63 68 3a 3a 76 65 72 73 69 6f 6e 29 0a 09 20 20 20 20 20 28 73 74 72 69 6e 67 2d 6c	.epoch::version).......(string-l
01a0	65 73 73 70 20 65 6d 61 63 73 2d 76 65 72 73 69 6f 6e 20 22 31 39 2e 32 39 22 29 29 29 0a 20 20	essp.emacs-version."19.29")))...
01c0	20 20 28 65 72 72 6f 72 20 22 60 6f 62 2d 70 65 72 6c 2e 65 6c 27 20 77 61 73 20 63 6f 6d 70 69	..(error."`ob-perl.el'.was.compi
01e0	6c 65 64 20 66 6f 72 20 45 6d 61 63 73 20 31 39 2e 32 39 20 6f 72 20 6c 61 74 65 72 22 29 29 0a	led.for.Emacs.19.29.or.later")).
0200	0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	.;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0220	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0240	3b 3b 3b 3b 0a 0a 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 31 5c 33 30 32 21 5c 32 31 30	;;;;...(byte-code."\301\302!\210
0260	5c 33 30 31 5c 33 30 33 21 5c 32 31 30 5c 33 30 34 5c 33 30 35 5c 33 30 36 5c 22 5c 32 31 30 5c	\301\303!\210\304\305\306\"\210\
0280	33 30 37 08 42 10 5c 33 31 30 5c 33 30 37 21 5c 32 30 34 1c 00 5c 33 31 31 5c 33 30 37 5c 33 31	307.B.\310\307!\204..\311\307\31
02a0	32 5c 22 5c 32 31 30 5c 33 31 32 5c 32 30 37 22 20 5b 63 75 72 72 65 6e 74 2d 6c 6f 61 64 2d 6c	2\"\210\312\207".[current-load-l
02c0	69 73 74 20 72 65 71 75 69 72 65 20 6f 62 20 6f 62 2d 65 76 61 6c 20 61 64 64 2d 74 6f 2d 6c 69	ist.require.ob.ob-eval.add-to-li
02e0	73 74 20 6f 72 67 2d 62 61 62 65 6c 2d 74 61 6e 67 6c 65 2d 6c 61 6e 67 2d 65 78 74 73 20 28 22	st.org-babel-tangle-lang-exts.("
0300	70 65 72 6c 22 20 2e 20 22 70 6c 22 29 20 6f 72 67 2d 62 61 62 65 6c 2d 64 65 66 61 75 6c 74 2d	perl"..."pl").org-babel-default-
0320	68 65 61 64 65 72 2d 61 72 67 73 3a 70 65 72 6c 20 64 65 66 61 75 6c 74 2d 62 6f 75 6e 64 70 20	header-args:perl.default-boundp.
0340	73 65 74 2d 64 65 66 61 75 6c 74 20 6e 69 6c 5d 20 33 29 0a 23 40 34 39 20 4e 61 6d 65 20 6f 66	set-default.nil].3).#@49.Name.of
0360	20 63 6f 6d 6d 61 6e 64 20 74 6f 20 75 73 65 20 66 6f 72 20 65 78 65 63 75 74 69 6e 67 20 70 65	.command.to.use.for.executing.pe
0380	72 6c 20 63 6f 64 65 2e 1f 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 62 61 62 65 6c 2d 70 65 72 6c	rl.code...(defvar.org-babel-perl
03a0	2d 63 6f 6d 6d 61 6e 64 20 22 70 65 72 6c 22 20 28 23 24 20 2e 20 38 35 37 29 29 0a 23 40 31 30	-command."perl".(#$...857)).#@10
03c0	30 20 45 78 65 63 75 74 65 20 61 20 62 6c 6f 63 6b 20 6f 66 20 50 65 72 6c 20 63 6f 64 65 20 77	0.Execute.a.block.of.Perl.code.w
03e0	69 74 68 20 42 61 62 65 6c 2e 0a 54 68 69 73 20 66 75 6e 63 74 69 6f 6e 20 69 73 20 63 61 6c 6c	ith.Babel..This.function.is.call
0400	65 64 20 62 79 20 60 6f 72 67 2d 62 61 62 65 6c 2d 65 78 65 63 75 74 65 2d 73 72 63 2d 62 6c 6f	ed.by.`org-babel-execute-src-blo
0420	63 6b 27 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 65 78 65 63 75	ck'...(defalias.'org-babel-execu
0440	74 65 3a 70 65 72 6c 20 23 5b 28 62 6f 64 79 20 70 61 72 61 6d 73 29 20 22 5c 33 30 36 5c 33 30	te:perl.#[(body.params)."\306\30
0460	37 08 5c 22 41 19 5c 33 30 36 5c 33 31 30 08 5c 22 41 1a 5c 33 30 36 5c 33 31 31 08 5c 22 41 1b	7.\"A.\306\310.\"A.\306\311.\"A.
0480	5c 33 31 32 5c 66 08 5c 33 31 33 08 21 23 1d 5c 33 31 34 09 21 19 5c 33 31 35 5c 33 31 36 09 0d	\312\f.\313.!#.\314.!.\315\316..
04a0	0b 23 5c 33 31 37 5c 33 30 36 5c 33 32 30 08 5c 22 41 5c 33 30 36 5c 33 32 31 08 5c 22 41 5c 22	.#\317\306\320.\"A\306\321.\"A\"
04c0	5c 33 31 37 5c 33 30 36 5c 33 32 32 08 5c 22 41 5c 33 30 36 5c 33 32 33 08 5c 22 41 5c 22 23 2d	\317\306\322.\"A\306\323.\"A\"#-
04e0	5c 32 30 37 22 20 5b 70 61 72 61 6d 73 20 73 65 73 73 69 6f 6e 20 72 65 73 75 6c 74 2d 70 61 72	\207".[params.session.result-par
0500	61 6d 73 20 72 65 73 75 6c 74 2d 74 79 70 65 20 62 6f 64 79 20 66 75 6c 6c 2d 62 6f 64 79 20 61	ams.result-type.body.full-body.a
0520	73 73 6f 63 20 3a 73 65 73 73 69 6f 6e 20 3a 72 65 73 75 6c 74 2d 70 61 72 61 6d 73 20 3a 72 65	ssoc.:session.:result-params.:re
0540	73 75 6c 74 2d 74 79 70 65 20 6f 72 67 2d 62 61 62 65 6c 2d 65 78 70 61 6e 64 2d 62 6f 64 79 3a	sult-type.org-babel-expand-body:
0560	67 65 6e 65 72 69 63 20 6f 72 67 2d 62 61 62 65 6c 2d 76 61 72 69 61 62 6c 65 2d 61 73 73 69 67	generic.org-babel-variable-assig
0580	6e 6d 65 6e 74 73 3a 70 65 72 6c 20 6f 72 67 2d 62 61 62 65 6c 2d 70 65 72 6c 2d 69 6e 69 74 69	nments:perl.org-babel-perl-initi
05a0	61 74 65 2d 73 65 73 73 69 6f 6e 20 6f 72 67 2d 62 61 62 65 6c 2d 72 65 61 73 73 65 6d 62 6c 65	ate-session.org-babel-reassemble
05c0	2d 74 61 62 6c 65 20 6f 72 67 2d 62 61 62 65 6c 2d 70 65 72 6c 2d 65 76 61 6c 75 61 74 65 20 6f	-table.org-babel-perl-evaluate.o
05e0	72 67 2d 62 61 62 65 6c 2d 70 69 63 6b 2d 6e 61 6d 65 20 3a 63 6f 6c 6e 61 6d 65 2d 6e 61 6d 65	rg-babel-pick-name.:colname-name
0600	73 20 3a 63 6f 6c 6e 61 6d 65 73 20 3a 72 6f 77 6e 61 6d 65 2d 6e 61 6d 65 73 20 3a 72 6f 77 6e	s.:colnames.:rowname-names.:rown
0620	61 6d 65 73 5d 20 38 20 28 23 24 20 2e 20 39 36 32 29 5d 29 0a 23 40 36 32 20 50 72 65 70 61 72	ames].8.(#$...962)]).#@62.Prepar
0640	65 20 53 45 53 53 49 4f 4e 20 61 63 63 6f 72 64 69 6e 67 20 74 6f 20 74 68 65 20 68 65 61 64 65	e.SESSION.according.to.the.heade
0660	72 20 61 72 67 75 6d 65 6e 74 73 20 69 6e 20 50 41 52 41 4d 53 2e 1f 0a 28 64 65 66 61 6c 69 61	r.arguments.in.PARAMS...(defalia
0680	73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 70 72 65 70 2d 73 65 73 73 69 6f 6e 3a 70 65 72 6c 20 23	s.'org-babel-prep-session:perl.#
06a0	5b 28 73 65 73 73 69 6f 6e 20 70 61 72 61 6d 73 29 20 22 5c 33 30 30 5c 33 30 31 21 5c 32 30 37	[(session.params)."\300\301!\207
06c0	22 20 5b 65 72 72 6f 72 20 22 53 65 73 73 69 6f 6e 73 20 61 72 65 20 6e 6f 74 20 73 75 70 70 6f	".[error."Sessions.are.not.suppo
06e0	72 74 65 64 20 66 6f 72 20 50 65 72 6c 2e 22 5d 20 32 20 28 23 24 20 2e 20 31 35 39 34 29 5d 29	rted.for.Perl."].2.(#$...1594)])
0700	0a 23 40 36 34 20 52 65 74 75 72 6e 20 6c 69 73 74 20 6f 66 20 70 65 72 6c 20 73 74 61 74 65 6d	.#@64.Return.list.of.perl.statem
0720	65 6e 74 73 20 61 73 73 69 67 6e 69 6e 67 20 74 68 65 20 62 6c 6f 63 6b 27 73 20 76 61 72 69 61	ents.assigning.the.block's.varia
0740	62 6c 65 73 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 76 61 72 69 61	bles..(defalias.'org-babel-varia
0760	62 6c 65 2d 61 73 73 69 67 6e 6d 65 6e 74 73 3a 70 65 72 6c 20 23 5b 28 70 61 72 61 6d 73 29 20	ble-assignments:perl.#[(params).
0780	22 5c 33 30 31 5c 33 30 32 5c 33 30 31 5c 33 30 33 5c 33 30 34 08 5c 33 30 35 5c 22 5c 22 5c 22	"\301\302\301\303\304.\305\"\"\"
07a0	5c 32 30 37 22 20 5b 70 61 72 61 6d 73 20 6d 61 70 63 61 72 20 23 5b 28 70 61 69 72 29 20 22 5c	\207".[params.mapcar.#[(pair)."\
07c0	33 30 31 5c 33 30 32 08 40 5c 33 30 33 08 41 21 23 5c 32 30 37 22 20 5b 70 61 69 72 20 66 6f 72	301\302.@\303.A!#\207".[pair.for
07e0	6d 61 74 20 22 24 25 73 3d 25 73 3b 22 20 6f 72 67 2d 62 61 62 65 6c 2d 70 65 72 6c 2d 76 61 72	mat."$%s=%s;".org-babel-perl-var
0800	2d 74 6f 2d 70 65 72 6c 5d 20 35 5d 20 63 64 72 20 6f 72 67 2d 62 61 62 65 6c 2d 67 65 74 2d 68	-to-perl].5].cdr.org-babel-get-h
0820	65 61 64 65 72 20 3a 76 61 72 5d 20 37 20 28 23 24 20 2e 20 31 37 39 38 29 5d 29 0a 23 40 31 34	eader.:var].7.(#$...1798)]).#@14
0840	37 20 43 6f 6e 76 65 72 74 20 61 6e 20 65 6c 69 73 70 20 76 61 6c 75 65 20 74 6f 20 61 20 70 65	7.Convert.an.elisp.value.to.a.pe
0860	72 6c 20 76 61 72 69 61 62 6c 65 2e 0a 54 68 65 20 65 6c 69 73 70 20 76 61 6c 75 65 2c 20 56 41	rl.variable..The.elisp.value,.VA
0880	52 2c 20 69 73 20 63 6f 6e 76 65 72 74 65 64 20 74 6f 20 61 20 73 74 72 69 6e 67 20 6f 66 20 70	R,.is.converted.to.a.string.of.p
08a0	65 72 6c 20 73 6f 75 72 63 65 20 63 6f 64 65 0a 73 70 65 63 69 66 79 69 6e 67 20 61 20 76 61 72	erl.source.code.specifying.a.var
08c0	20 6f 66 20 74 68 65 20 73 61 6d 65 20 76 61 6c 75 65 2e 1f 0a 28 64 65 66 61 6c 69 61 73 20 27	.of.the.same.value...(defalias.'
08e0	6f 72 67 2d 62 61 62 65 6c 2d 70 65 72 6c 2d 76 61 72 2d 74 6f 2d 70 65 72 6c 20 23 5b 28 76 61	org-babel-perl-var-to-perl.#[(va
0900	72 29 20 22 08 3c 5c 32 30 33 0e 00 5c 33 30 31 5c 33 30 32 5c 33 30 33 08 5c 33 30 34 23 5c 33	r).".<\203..\301\302\303.\304#\3
0920	30 35 51 5c 32 30 37 5c 33 30 36 5c 33 30 37 08 5c 22 5c 32 30 37 22 20 5b 76 61 72 20 22 5b 22	05Q\207\306\307.\"\207".[var."["
0940	20 6d 61 70 63 6f 6e 63 61 74 20 6f 72 67 2d 62 61 62 65 6c 2d 70 65 72 6c 2d 76 61 72 2d 74 6f	.mapconcat.org-babel-perl-var-to
0960	2d 70 65 72 6c 20 22 2c 20 22 20 22 5d 22 20 66 6f 72 6d 61 74 20 22 25 53 22 5d 20 35 20 28 23	-perl.",."."]".format."%S"].5.(#
0980	24 20 2e 20 32 31 31 34 29 5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 31 08 42 10 5c	$...2114)]).(byte-code."\301.B.\
09a0	33 30 32 5c 33 30 31 21 5c 32 30 34 0f 00 5c 33 30 33 5c 33 30 31 5c 33 30 34 5c 22 5c 32 31 30	302\301!\204..\303\301\304\"\210
09c0	5c 33 30 31 5c 32 30 37 22 20 5b 63 75 72 72 65 6e 74 2d 6c 6f 61 64 2d 6c 69 73 74 20 6f 72 67	\301\207".[current-load-list.org
09e0	2d 62 61 62 65 6c 2d 70 65 72 6c 2d 62 75 66 66 65 72 73 20 64 65 66 61 75 6c 74 2d 62 6f 75 6e	-babel-perl-buffers.default-boun
0a00	64 70 20 73 65 74 2d 64 65 66 61 75 6c 74 20 28 3a 64 65 66 61 75 6c 74 29 5d 20 33 29 0a 23 40	dp.set-default.(:default)].3).#@
0a20	35 35 20 52 65 74 75 72 6e 20 6e 69 6c 20 62 65 63 61 75 73 65 20 73 65 73 73 69 6f 6e 73 20 61	55.Return.nil.because.sessions.a
0a40	72 65 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 20 62 79 20 70 65 72 6c 1f 0a 28 64 65 66 61 6c	re.not.supported.by.perl..(defal
0a60	69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 70 65 72 6c 2d 69 6e 69 74 69 61 74 65 2d 73 65 73	ias.'org-babel-perl-initiate-ses
0a80	73 69 6f 6e 20 23 5b 28 26 6f 70 74 69 6f 6e 61 6c 20 73 65 73 73 69 6f 6e 20 70 61 72 61 6d 73	sion.#[(&optional.session.params
0aa0	29 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 31 20 28 23 24 20 2e 20 32 35 39 35 29	)."\300\207".[nil].1.(#$...2595)
0ac0	5d 29 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c 33 30 31 08 42 10 5c 33 30 32 5c 33 30 31 21 5c	]).(byte-code."\301.B.\302\301!\
0ae0	32 30 34 0f 00 5c 33 30 33 5c 33 30 31 5c 33 30 34 5c 22 5c 32 31 30 5c 33 30 35 08 42 10 5c 33	204..\303\301\304\"\210\305.B.\3
0b00	30 32 5c 33 30 35 21 5c 32 30 34 1e 00 5c 33 30 33 5c 33 30 35 5c 33 30 36 5c 22 5c 32 31 30 5c	02\305!\204..\303\305\306\"\210\
0b20	33 30 36 5c 32 30 37 22 20 5b 63 75 72 72 65 6e 74 2d 6c 6f 61 64 2d 6c 69 73 74 20 6f 72 67 2d	306\207".[current-load-list.org-
0b40	62 61 62 65 6c 2d 70 65 72 6c 2d 77 72 61 70 70 65 72 2d 6d 65 74 68 6f 64 20 64 65 66 61 75 6c	babel-perl-wrapper-method.defaul
0b60	74 2d 62 6f 75 6e 64 70 20 73 65 74 2d 64 65 66 61 75 6c 74 20 22 5c 6e 73 75 62 20 6d 61 69 6e	t-boundp.set-default."\nsub.main
0b80	20 7b 5c 6e 25 73 5c 6e 7d 5c 6e 40 72 20 3d 20 6d 61 69 6e 3b 5c 6e 6f 70 65 6e 28 6f 2c 20 5c	.{\n%s\n}\n@r.=.main;\nopen(o,.\
0ba0	22 3e 25 73 5c 22 29 3b 5c 6e 70 72 69 6e 74 20 6f 20 6a 6f 69 6e 28 5c 22 5c 5c 6e 5c 22 2c 20	">%s\");\nprint.o.join(\"\\n\",.
0bc0	40 72 29 2c 20 5c 22 5c 5c 6e 5c 22 22 20 6f 72 67 2d 62 61 62 65 6c 2d 70 65 72 6c 2d 70 70 2d	@r),.\"\\n\"".org-babel-perl-pp-
0be0	77 72 61 70 70 65 72 2d 6d 65 74 68 6f 64 20 6e 69 6c 5d 20 33 29 0a 23 40 32 32 36 20 50 61 73	wrapper-method.nil].3).#@226.Pas
0c00	73 20 42 4f 44 59 20 74 6f 20 74 68 65 20 50 65 72 6c 20 70 72 6f 63 65 73 73 20 69 6e 20 53 45	s.BODY.to.the.Perl.process.in.SE
0c20	53 53 49 4f 4e 2e 0a 49 66 20 52 45 53 55 4c 54 2d 54 59 50 45 20 65 71 75 61 6c 73 20 27 6f 75	SSION..If.RESULT-TYPE.equals.'ou
0c40	74 70 75 74 20 74 68 65 6e 20 72 65 74 75 72 6e 20 61 20 6c 69 73 74 20 6f 66 20 74 68 65 20 6f	tput.then.return.a.list.of.the.o
0c60	75 74 70 75 74 73 0a 6f 66 20 74 68 65 20 73 74 61 74 65 6d 65 6e 74 73 20 69 6e 20 42 4f 44 59	utputs.of.the.statements.in.BODY
0c80	2c 20 69 66 20 52 45 53 55 4c 54 2d 54 59 50 45 20 65 71 75 61 6c 73 20 27 76 61 6c 75 65 20 74	,.if.RESULT-TYPE.equals.'value.t
0ca0	68 65 6e 0a 72 65 74 75 72 6e 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 74 68 65 20 6c 61 73 74	hen.return.the.value.of.the.last
0cc0	20 73 74 61 74 65 6d 65 6e 74 20 69 6e 20 42 4f 44 59 2c 20 61 73 20 65 6c 69 73 70 2e 1f 0a 28	.statement.in.BODY,.as.elisp...(
0ce0	64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 70 65 72 6c 2d 65 76 61 6c 75 61 74	defalias.'org-babel-perl-evaluat
0d00	65 20 23 5b 28 73 65 73 73 69 6f 6e 20 62 6f 64 79 20 26 6f 70 74 69 6f 6e 61 6c 20 72 65 73 75	e.#[(session.body.&optional.resu
0d20	6c 74 2d 74 79 70 65 29 20 22 08 5c 32 30 33 08 00 5c 33 30 36 5c 33 30 37 21 5c 32 31 30 09 5c	lt-type).".\203..\306\307!\210.\
0d40	33 31 30 3d 5c 32 30 33 13 00 5c 33 31 31 5c 6e 0b 5c 22 5c 32 30 37 09 5c 33 31 32 3d 5c 32 30	310=\203..\311\n.\"\207.\312=\20
0d60	35 2d 00 5c 33 31 33 5c 33 31 34 21 1c 5c 33 31 31 5c 6e 5c 33 31 35 0d 0b 5c 33 31 36 5c 66 5c	5-.\313\314!.\311\n\315..\316\f\
0d80	33 31 37 5c 22 23 5c 22 5c 32 31 30 5c 33 32 30 5c 66 21 29 5c 32 30 37 22 20 5b 73 65 73 73 69	317\"#\"\210\320\f!)\207".[sessi
0da0	6f 6e 20 72 65 73 75 6c 74 2d 74 79 70 65 20 6f 72 67 2d 62 61 62 65 6c 2d 70 65 72 6c 2d 63 6f	on.result-type.org-babel-perl-co
0dc0	6d 6d 61 6e 64 20 62 6f 64 79 20 74 6d 70 2d 66 69 6c 65 20 6f 72 67 2d 62 61 62 65 6c 2d 70 65	mmand.body.tmp-file.org-babel-pe
0de0	72 6c 2d 77 72 61 70 70 65 72 2d 6d 65 74 68 6f 64 20 65 72 72 6f 72 20 22 53 65 73 73 69 6f 6e	rl-wrapper-method.error."Session
0e00	73 20 61 72 65 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 20 66 6f 72 20 50 65 72 6c 2e 22 20 6f	s.are.not.supported.for.Perl.".o
0e20	75 74 70 75 74 20 6f 72 67 2d 62 61 62 65 6c 2d 65 76 61 6c 20 76 61 6c 75 65 20 6f 72 67 2d 62	utput.org-babel-eval.value.org-b
0e40	61 62 65 6c 2d 74 65 6d 70 2d 66 69 6c 65 20 22 70 65 72 6c 2d 22 20 66 6f 72 6d 61 74 20 6f 72	abel-temp-file."perl-".format.or
0e60	67 2d 62 61 62 65 6c 2d 70 72 6f 63 65 73 73 2d 66 69 6c 65 2d 6e 61 6d 65 20 6e 6f 71 75 6f 74	g-babel-process-file-name.noquot
0e80	65 20 6f 72 67 2d 62 61 62 65 6c 2d 65 76 61 6c 2d 72 65 61 64 2d 66 69 6c 65 5d 20 38 20 28 23	e.org-babel-eval-read-file].8.(#
0ea0	24 20 2e 20 33 30 36 39 29 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 6f 62 2d 70 65 72 6c 29 0a	$...3069)]).(provide.'ob-perl).