blob: 0ec4cb4380631667dd35a520a4a29fad7d264947 (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 0a 3b 3b 3b 20 69 6e 20 45 6d 61	;ELC.....;;;.Compiled.;;;.in.Ema
0020	63 73 20 76 65 72 73 69 6f 6e 20 32 37 2e 32 0a 3b 3b 3b 20 77 69 74 68 20 61 6c 6c 20 6f 70 74	cs.version.27.2.;;;.with.all.opt
0040	69 6d 69 7a 61 74 69 6f 6e 73 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 75 73 65 73 20	imizations...;;;.This.file.uses.
0060	64 79 6e 61 6d 69 63 20 64 6f 63 73 74 72 69 6e 67 73 2c 20 66 69 72 73 74 20 61 64 64 65 64 20	dynamic.docstrings,.first.added.
0080	69 6e 20 45 6d 61 63 73 20 31 39 2e 32 39 2e 0a 0a 3b 3b 3b 20 54 68 69 73 20 66 69 6c 65 20 64	in.Emacs.19.29...;;;.This.file.d
00a0	6f 65 73 20 6e 6f 74 20 63 6f 6e 74 61 69 6e 20 75 74 66 2d 38 20 6e 6f 6e 2d 41 53 43 49 49 20	oes.not.contain.utf-8.non-ASCII.
00c0	63 68 61 72 61 63 74 65 72 73 2c 0a 3b 3b 3b 20 61 6e 64 20 73 6f 20 63 61 6e 20 62 65 20 6c 6f	characters,.;;;.and.so.can.be.lo
00e0	61 64 65 64 20 69 6e 20 45 6d 61 63 73 20 76 65 72 73 69 6f 6e 73 20 65 61 72 6c 69 65 72 20 74	aded.in.Emacs.versions.earlier.t
0100	68 61 6e 20 32 33 2e 0a 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	han.23...;;;;;;;;;;;;;;;;;;;;;;;
0120	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	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0140	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b	;;;;;;;;;;;;.;;;;;;;;;;;;;;;;;;;
0160	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	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0180	3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 3b 0a 0a 0a 28 62 79 74 65 2d 63 6f 64 65 20 22 5c	;;;;;;;;;;;;;;;;...(byte-code."\
01a0	33 30 30 5c 33 30 31 21 5c 32 31 30 5c 33 30 32 5c 33 30 33 5c 33 30 34 5c 22 5c 32 30 37 22 20	300\301!\210\302\303\304\"\207".
01c0	5b 72 65 71 75 69 72 65 20 6f 62 20 61 64 64 2d 74 6f 2d 6c 69 73 74 20 6f 72 67 2d 62 61 62 65	[require.ob.add-to-list.org-babe
01e0	6c 2d 74 61 6e 67 6c 65 2d 6c 61 6e 67 2d 65 78 74 73 20 28 22 70 65 72 6c 22 20 2e 20 22 70 6c	l-tangle-lang-exts.("perl"..."pl
0200	22 29 5d 20 33 29 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 62 61 62 65 6c 2d 64 65 66 61 75 6c 74	")].3).(defvar.org-babel-default
0220	2d 68 65 61 64 65 72 2d 61 72 67 73 3a 70 65 72 6c 20 6e 69 6c 29 0a 23 40 34 39 20 4e 61 6d 65	-header-args:perl.nil).#@49.Name
0240	20 6f 66 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	.of.command.to.use.for.executing
0260	20 70 65 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	.perl.code...(defvar.org-babel-p
0280	65 72 6c 2d 63 6f 6d 6d 61 6e 64 20 22 70 65 72 6c 22 20 28 23 24 20 2e 20 35 37 32 29 29 0a 23	erl-command."perl".(#$...572)).#
02a0	40 31 31 38 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	@118.Execute.a.block.of.Perl.cod
02c0	65 20 77 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	e.with.Babel..This.function.is.c
02e0	61 6c 6c 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	alled.by.`org-babel-execute-src-
0300	62 6c 6f 63 6b 27 2e 0a 0a 28 66 6e 20 42 4f 44 59 20 50 41 52 41 4d 53 29 1f 0a 28 64 65 66 61	block'...(fn.BODY.PARAMS)..(defa
0320	6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 65 78 65 63 75 74 65 3a 70 65 72 6c 20 23 5b 35	lias.'org-babel-execute:perl.#[5
0340	31 34 20 22 5c 33 30 30 01 5c 32 33 36 41 5c 33 30 31 02 5c 32 33 36 41 5c 33 30 32 03 5c 32 33	14."\300.\236A\301.\236A\302.\23
0360	36 41 5c 33 30 33 05 05 5c 33 30 34 06 07 21 23 5c 33 30 35 04 21 5c 33 30 36 5c 33 30 37 02 04	6A\303..\304..!#\305.!\306\307..
0380	06 06 06 08 24 5c 33 31 30 5c 33 31 31 06 09 5c 32 33 36 41 5c 33 31 32 06 5c 6e 5c 32 33 36 41	....$\310\311..\236A\312.\n\236A
03a0	5c 22 5c 33 31 30 5c 33 31 33 06 5c 6e 5c 32 33 36 41 5c 33 31 34 06 0b 5c 32 33 36 41 5c 22 23	\"\310\313.\n\236A\314..\236A\"#
03c0	5c 32 30 37 22 20 5b 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	\207".[:session.:result-params.:
03e0	72 65 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	result-type.org-babel-expand-bod
0400	79 3a 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	y:generic.org-babel-variable-ass
0420	69 67 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	ignments:perl.org-babel-perl-ini
0440	74 69 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	tiate-session.org-babel-reassemb
0460	6c 65 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	le-table.org-babel-perl-evaluate
0480	20 6f 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	.org-babel-pick-name.:colname-na
04a0	6d 65 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	mes.:colnames.:rowname-names.:ro
04c0	77 6e 61 6d 65 73 5d 20 31 34 20 28 23 24 20 2e 20 36 37 37 29 5d 29 0a 23 40 38 33 20 50 72 65	wnames].14.(#$...677)]).#@83.Pre
04e0	70 61 72 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	pare.SESSION.according.to.the.he
0500	61 64 65 72 20 61 72 67 75 6d 65 6e 74 73 20 69 6e 20 50 41 52 41 4d 53 2e 0a 0a 28 66 6e 20 53	ader.arguments.in.PARAMS...(fn.S
0520	45 53 53 49 4f 4e 20 50 41 52 41 4d 53 29 1f 0a 28 64 65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62	ESSION.PARAMS)..(defalias.'org-b
0540	61 62 65 6c 2d 70 72 65 70 2d 73 65 73 73 69 6f 6e 3a 70 65 72 6c 20 23 5b 35 31 34 20 22 5c 33	abel-prep-session:perl.#[514."\3
0560	30 30 5c 33 30 31 21 5c 32 30 37 22 20 5b 65 72 72 6f 72 20 22 53 65 73 73 69 6f 6e 73 20 61 72	00\301!\207".[error."Sessions.ar
0580	65 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 20 66 6f 72 20 50 65 72 6c 22 5d 20 34 20 28 23 24	e.not.supported.for.Perl"].4.(#$
05a0	20 2e 20 31 32 34 35 29 5d 29 0a 23 40 37 38 20 52 65 74 75 72 6e 20 6c 69 73 74 20 6f 66 20 70	...1245)]).#@78.Return.list.of.p
05c0	65 72 6c 20 73 74 61 74 65 6d 65 6e 74 73 20 61 73 73 69 67 6e 69 6e 67 20 74 68 65 20 62 6c 6f	erl.statements.assigning.the.blo
05e0	63 6b 27 73 20 76 61 72 69 61 62 6c 65 73 2e 0a 0a 28 66 6e 20 50 41 52 41 4d 53 29 1f 0a 28 64	ck's.variables...(fn.PARAMS)..(d
0600	65 66 61 6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 76 61 72 69 61 62 6c 65 2d 61 73 73 69	efalias.'org-babel-variable-assi
0620	67 6e 6d 65 6e 74 73 3a 70 65 72 6c 20 23 5b 32 35 37 20 22 5c 33 30 30 5c 33 30 31 5c 33 30 32	gnments:perl.#[257."\300\301\302
0640	03 21 5c 22 5c 32 30 37 22 20 5b 6d 61 70 63 61 72 20 23 5b 32 35 37 20 22 5c 33 30 30 01 41 02	.!\"\207".[mapcar.#[257."\300.A.
0660	40 5c 22 5c 32 30 37 22 20 5b 6f 72 67 2d 62 61 62 65 6c 2d 70 65 72 6c 2d 2d 76 61 72 2d 74 6f	@\"\207".[org-babel-perl--var-to
0680	2d 70 65 72 6c 5d 20 34 20 22 5c 6e 5c 6e 28 66 6e 20 50 41 49 52 29 22 5d 20 6f 72 67 2d 62 61	-perl].4."\n\n(fn.PAIR)"].org-ba
06a0	62 65 6c 2d 2d 67 65 74 2d 76 61 72 73 5d 20 35 20 28 23 24 20 2e 20 31 34 35 36 29 5d 29 0a 23	bel--get-vars].5.(#$...1456)]).#
06c0	40 34 38 20 57 72 61 70 70 65 72 20 66 6f 72 20 76 61 72 69 61 62 6c 65 73 20 69 6e 73 65 72 74	@48.Wrapper.for.variables.insert
06e0	65 64 20 69 6e 74 6f 20 50 65 72 6c 20 63 6f 64 65 2e 1f 0a 28 64 65 66 76 61 72 20 6f 72 67 2d	ed.into.Perl.code...(defvar.org-
0700	62 61 62 65 6c 2d 70 65 72 6c 2d 76 61 72 2d 77 72 61 70 20 22 71 28 25 73 29 22 20 28 23 24 20	babel-perl-var-wrap."q(%s)".(#$.
0720	2e 20 31 37 33 32 29 29 0a 23 40 31 37 32 20 43 6f 6e 76 65 72 74 20 61 6e 20 65 6c 69 73 70 20	..1732)).#@172.Convert.an.elisp.
0740	76 61 6c 75 65 20 74 6f 20 61 20 70 65 72 6c 20 76 61 72 69 61 62 6c 65 2e 0a 54 68 65 20 65 6c	value.to.a.perl.variable..The.el
0760	69 73 70 20 76 61 6c 75 65 2c 20 56 41 52 2c 20 69 73 20 63 6f 6e 76 65 72 74 65 64 20 74 6f 20	isp.value,.VAR,.is.converted.to.
0780	61 20 73 74 72 69 6e 67 20 6f 66 20 70 65 72 6c 20 73 6f 75 72 63 65 20 63 6f 64 65 0a 73 70 65	a.string.of.perl.source.code.spe
07a0	63 69 66 79 69 6e 67 20 61 20 76 61 72 20 6f 66 20 74 68 65 20 73 61 6d 65 20 76 61 6c 75 65 2e	cifying.a.var.of.the.same.value.
07c0	0a 0a 28 66 6e 20 56 41 52 20 26 6f 70 74 69 6f 6e 61 6c 20 56 41 52 4e 29 1f 0a 28 64 65 66 61	..(fn.VAR.&optional.VARN)..(defa
07e0	6c 69 61 73 20 27 6f 72 67 2d 62 61 62 65 6c 2d 70 65 72 6c 2d 2d 76 61 72 2d 74 6f 2d 70 65 72	lias.'org-babel-perl--var-to-per
0800	6c 20 23 5b 35 31 33 20 22 5c 32 31 31 5c 32 30 33 1c 00 5c 33 30 31 02 3c 01 18 5c 33 30 32 5c	l.#[513."\211\203..\301.<..\302\
0820	33 30 33 04 21 5c 33 30 34 03 5c 32 30 35 13 00 5c 33 30 35 5c 33 30 36 06 08 21 5c 33 30 37 5c	303.!\304.\205..\305\306..!\307\
0840	32 36 30 06 29 5c 32 30 37 5c 33 31 30 5c 33 31 31 08 5f 5c 33 31 32 5c 22 5c 32 31 31 03 3c 5c	260.)\207\310\311._\312\"\211.<\
0860	32 30 33 39 00 08 54 18 5c 33 31 33 5c 33 31 34 5c 33 30 36 06 06 5c 33 31 35 23 03 5c 33 31 36	2039..T.\313\314\306..\315#.\316
0880	52 29 5c 32 30 32 3d 00 5c 33 31 37 5c 33 32 30 05 5c 22 08 5c 33 30 31 55 3f 5c 32 30 35 45 00	R)\202=.\317\320.\".\301U?\205E.
08a0	5c 33 32 31 51 5c 32 30 37 22 20 5b 6f 72 67 2d 62 61 62 65 6c 2d 70 65 72 6c 2d 2d 6c 76 6c 20	\321Q\207".[org-babel-perl--lvl.
08c0	30 20 22 6d 79 20 24 22 20 73 79 6d 62 6f 6c 2d 6e 61 6d 65 20 22 3d 22 20 22 5c 6e 22 20 6f 72	0."my.$".symbol-name."="."\n".or
08e0	67 2d 62 61 62 65 6c 2d 70 65 72 6c 2d 2d 76 61 72 2d 74 6f 2d 70 65 72 6c 20 22 3b 5c 6e 22 20	g-babel-perl--var-to-perl.";\n".
0900	6d 61 6b 65 2d 73 74 72 69 6e 67 20 32 20 33 32 20 22 5b 5c 6e 22 20 6d 61 70 63 6f 6e 63 61 74	make-string.2.32."[\n".mapconcat
0920	20 22 22 20 22 5d 22 20 66 6f 72 6d 61 74 20 22 71 28 25 73 29 22 20 22 2c 5c 6e 22 5d 20 31 30	.""."]".format."q(%s)".",\n"].10
0940	20 28 23 24 20 2e 20 31 38 33 39 29 5d 29 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 62 61 62 65 6c	.(#$...1839)]).(defvar.org-babel
0960	2d 70 65 72 6c 2d 62 75 66 66 65 72 73 20 27 28 3a 64 65 66 61 75 6c 74 29 29 0a 23 40 38 37 20	-perl-buffers.'(:default)).#@87.
0980	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 72 65 20	Return.nil.because.sessions.are.
09a0	6e 6f 74 20 73 75 70 70 6f 72 74 65 64 20 62 79 20 70 65 72 6c 2e 0a 0a 28 66 6e 20 26 6f 70 74	not.supported.by.perl...(fn.&opt
09c0	69 6f 6e 61 6c 20 53 45 53 53 49 4f 4e 20 50 41 52 41 4d 53 29 1f 0a 28 64 65 66 61 6c 69 61 73	ional.SESSION.PARAMS)..(defalias
09e0	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 73 69 6f	.'org-babel-perl-initiate-sessio
0a00	6e 20 23 5b 35 31 32 20 22 5c 33 30 30 5c 32 30 37 22 20 5b 6e 69 6c 5d 20 33 20 28 23 24 20 2e	n.#[512."\300\207".[nil].3.(#$..
0a20	20 32 34 33 32 29 5d 29 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 62 61 62 65 6c 2d 70 65 72 6c 2d	.2432)]).(defvar.org-babel-perl-
0a40	77 72 61 70 70 65 72 2d 6d 65 74 68 6f 64 20 22 7b 5c 6e 20 20 20 20 6d 79 20 24 62 61 62 65 6c	wrapper-method."{\n....my.$babel
0a60	5f 73 75 62 20 3d 20 73 75 62 20 7b 5c 6e 20 20 20 20 20 20 20 20 25 73 5c 6e 20 20 20 20 7d 3b	_sub.=.sub.{\n........%s\n....};
0a80	5c 6e 20 20 20 20 6f 70 65 6e 20 6d 79 20 24 42 4f 48 2c 20 71 71 28 3e 25 73 29 20 6f 72 20 64	\n....open.my.$BOH,.qq(>%s).or.d
0aa0	69 65 20 71 71 28 50 65 72 6c 3a 20 43 6f 75 6c 64 20 6e 6f 74 20 6f 70 65 6e 20 6f 75 74 70 75	ie.qq(Perl:.Could.not.open.outpu
0ac0	74 20 66 69 6c 65 2e 24 2f 29 3b 5c 6e 20 20 20 20 6d 79 20 24 72 76 20 3d 20 26 24 62 61 62 65	t.file.$/);\n....my.$rv.=.&$babe
0ae0	6c 5f 73 75 62 28 29 3b 5c 6e 20 20 20 20 6d 79 20 24 72 74 20 3d 20 72 65 66 20 24 72 76 3b 5c	l_sub();\n....my.$rt.=.ref.$rv;\
0b00	6e 20 20 20 20 73 65 6c 65 63 74 20 24 42 4f 48 3b 5c 6e 20 20 20 20 69 66 20 28 71 71 28 41 52	n....select.$BOH;\n....if.(qq(AR
0b20	52 41 59 29 20 65 71 20 24 72 74 29 20 7b 5c 6e 20 20 20 20 20 20 20 20 6c 6f 63 61 6c 20 24 5c	RAY).eq.$rt).{\n........local.$\
0b40	5c 3d 24 2f 3b 5c 6e 20 20 20 20 20 20 20 20 6c 6f 63 61 6c 20 24 2c 3d 71 71 28 09 29 3b 5c 6e	\=$/;\n........local.$,=qq(.);\n
0b60	09 66 6f 72 65 61 63 68 20 6d 79 20 24 72 76 20 28 20 40 24 72 76 20 29 20 7b 5c 6e 09 20 20 20	.foreach.my.$rv.(.@$rv.).{\n....
0b80	20 6d 79 20 24 72 74 20 3d 20 72 65 66 20 24 72 76 3b 5c 6e 09 20 20 20 20 69 66 20 28 71 71 28	.my.$rt.=.ref.$rv;\n.....if.(qq(
0ba0	41 52 52 41 59 29 20 65 71 20 24 72 74 29 20 7b 5c 6e 09 09 70 72 69 6e 74 20 40 24 72 76 3b 5c	ARRAY).eq.$rt).{\n..print.@$rv;\
0bc0	6e 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 5c 6e 09 09 70 72 69 6e 74 20 24 72 76 3b 5c 6e 09 20	n.....}.else.{\n..print.$rv;\n..
0be0	20 20 20 7d 5c 6e 09 7d 5c 6e 20 20 20 20 7d 20 65 6c 73 65 20 7b 5c 6e 09 70 72 69 6e 74 20 24	...}\n.}\n....}.else.{\n.print.$
0c00	72 76 3b 5c 6e 20 20 20 20 7d 5c 6e 7d 22 29 0a 28 64 65 66 76 61 72 20 6f 72 67 2d 62 61 62 65	rv;\n....}\n}").(defvar.org-babe
0c20	6c 2d 70 65 72 6c 2d 70 72 65 66 61 63 65 20 6e 69 6c 29 0a 28 64 65 66 76 61 72 20 6f 72 67 2d	l-perl-preface.nil).(defvar.org-
0c40	62 61 62 65 6c 2d 70 65 72 6c 2d 70 70 2d 77 72 61 70 70 65 72 2d 6d 65 74 68 6f 64 20 6e 69 6c	babel-perl-pp-wrapper-method.nil
0c60	29 0a 23 40 32 38 34 20 50 61 73 73 20 42 4f 44 59 20 74 6f 20 74 68 65 20 50 65 72 6c 20 70 72	).#@284.Pass.BODY.to.the.Perl.pr
0c80	6f 63 65 73 73 20 69 6e 20 53 45 53 53 49 4f 4e 2e 0a 49 66 20 52 45 53 55 4c 54 2d 54 59 50 45	ocess.in.SESSION..If.RESULT-TYPE
0ca0	20 65 71 75 61 6c 73 20 60 6f 75 74 70 75 74 27 20 74 68 65 6e 20 72 65 74 75 72 6e 20 61 20 6c	.equals.`output'.then.return.a.l
0cc0	69 73 74 20 6f 66 20 74 68 65 20 6f 75 74 70 75 74 73 0a 6f 66 20 74 68 65 20 73 74 61 74 65 6d	ist.of.the.outputs.of.the.statem
0ce0	65 6e 74 73 20 69 6e 20 42 4f 44 59 2c 20 69 66 20 52 45 53 55 4c 54 2d 54 59 50 45 20 65 71 75	ents.in.BODY,.if.RESULT-TYPE.equ
0d00	61 6c 73 20 60 76 61 6c 75 65 27 20 74 68 65 6e 0a 72 65 74 75 72 6e 20 74 68 65 20 76 61 6c 75	als.`value'.then.return.the.valu
0d20	65 20 6f 66 20 74 68 65 20 6c 61 73 74 20 73 74 61 74 65 6d 65 6e 74 20 69 6e 20 42 4f 44 59 2c	e.of.the.last.statement.in.BODY,
0d40	20 61 73 20 65 6c 69 73 70 2e 0a 0a 28 66 6e 20 53 45 53 53 49 4f 4e 20 49 42 4f 44 59 20 26 6f	.as.elisp...(fn.SESSION.IBODY.&o
0d60	70 74 69 6f 6e 61 6c 20 52 45 53 55 4c 54 2d 54 59 50 45 20 52 45 53 55 4c 54 2d 50 41 52 41 4d	ptional.RESULT-TYPE.RESULT-PARAM
0d80	53 29 1f 0a 28 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	S)..(defalias.'org-babel-perl-ev
0da0	61 6c 75 61 74 65 20 23 5b 31 30 32 36 20 22 03 5c 32 30 33 08 00 5c 33 30 33 5c 33 30 34 21 5c	aluate.#[1026.".\203..\303\304!\
0dc0	32 31 30 08 03 50 5c 33 30 35 5c 33 30 36 21 5c 33 30 37 01 5c 33 31 30 5c 22 04 5c 33 31 31 5c	210..P\305\306!\307.\310\".\311\
0de0	32 36 37 5c 32 30 32 54 00 01 5c 33 31 32 5c 33 31 33 21 5c 33 31 34 5c 33 31 35 5c 33 31 36 5c	267\202T..\312\313!\314\315\316\
0e00	33 31 37 5c 33 32 30 05 21 5c 33 32 31 5c 22 5c 33 32 32 24 5c 32 31 36 72 5c 32 31 31 71 5c 32	317\320.!\321\"\322$\216r\211q\2
0e20	31 30 5c 33 32 33 09 06 06 5c 22 63 5c 32 31 30 5c 33 32 34 20 29 72 01 71 5c 32 31 30 5c 33 32	10\323...\"c\210\324.)r.q\210\32
0e40	35 5c 33 32 36 5c 32 31 31 05 5c 33 32 36 5c 33 31 35 25 5c 32 31 30 2a 5c 32 36 36 5c 32 30 32	5\326\211.\326\315%\210*\266\202
0e60	5c 32 30 32 55 00 5c 33 32 33 09 5c 33 32 37 5c 6e 06 06 05 23 5c 22 5c 32 30 32 55 00 5c 33 32	\202U.\323.\327\n...#\"\202U.\32
0e80	36 5c 32 31 31 5c 32 30 35 5c 32 35 37 00 04 5c 33 33 30 01 5c 32 33 35 3f 5c 32 30 35 5c 32 35	6\211\205\257..\330.\235?\205\25
0ea0	35 00 5c 33 33 31 01 5c 32 33 35 5c 32 30 34 5c 32 34 33 00 5c 33 33 32 01 5c 32 33 35 5c 32 30	5.\331.\235\204\243.\332.\235\20
0ec0	34 5c 32 34 33 00 5c 33 33 33 01 5c 32 33 35 5c 32 30 34 5c 32 34 33 00 5c 33 33 34 01 5c 32 33	4\243.\333.\235\204\243.\334.\23
0ee0	35 5c 32 30 34 5c 32 34 33 00 5c 33 33 35 01 5c 32 33 35 5c 32 30 34 5c 32 34 33 00 5c 33 33 36	5\204\243.\335.\235\204\243.\336
0f00	01 5c 32 33 35 5c 32 30 34 5c 32 34 33 00 5c 33 33 37 01 5c 32 33 35 5c 32 30 34 5c 32 33 35 00	.\235\204\243.\337.\235\204\235.
0f20	5c 33 34 30 01 5c 32 33 35 5c 32 30 34 5c 32 33 35 00 5c 33 34 31 01 5c 32 33 35 5c 32 30 34 5c	\340.\235\204\235.\341.\235\204\
0f40	32 33 35 00 5c 33 34 32 01 5c 32 33 35 5c 32 30 33 5c 32 35 31 00 5c 33 34 33 01 5c 32 33 35 5c	235.\342.\235\203\251.\343.\235\
0f60	32 30 34 5c 32 35 31 00 5c 33 34 34 04 21 5c 32 30 32 5c 32 35 35 00 5c 33 34 35 04 5c 33 34 36	204\251.\344.!\202\255.\345.\346
0f80	5c 22 5c 32 36 32 01 5c 32 36 32 01 5c 32 30 37 22 20 5b 6f 72 67 2d 62 61 62 65 6c 2d 70 65 72	\"\262.\262.\207".[org-babel-per
0fa0	6c 2d 70 72 65 66 61 63 65 20 6f 72 67 2d 62 61 62 65 6c 2d 70 65 72 6c 2d 63 6f 6d 6d 61 6e 64	l-preface.org-babel-perl-command
0fc0	20 6f 72 67 2d 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 65	.org-babel-perl-wrapper-method.e
0fe0	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 72 74 65 64	rror."Sessions.are.not.supported
1000	20 66 6f 72 20 50 65 72 6c 22 20 6f 72 67 2d 62 61 62 65 6c 2d 74 65 6d 70 2d 66 69 6c 65 20 22	.for.Perl".org-babel-temp-file."
1020	70 65 72 6c 2d 22 20 6f 72 67 2d 62 61 62 65 6c 2d 70 72 6f 63 65 73 73 2d 66 69 6c 65 2d 6e 61	perl-".org-babel-process-file-na
1040	6d 65 20 6e 6f 71 75 6f 74 65 20 23 73 28 68 61 73 68 2d 74 61 62 6c 65 20 73 69 7a 65 20 32 20	me.noquote.#s(hash-table.size.2.
1060	74 65 73 74 20 65 71 20 72 65 68 61 73 68 2d 73 69 7a 65 20 31 2e 35 20 72 65 68 61 73 68 2d 74	test.eq.rehash-size.1.5.rehash-t
1080	68 72 65 73 68 6f 6c 64 20 30 2e 38 31 32 35 20 70 75 72 65 63 6f 70 79 20 74 20 64 61 74 61 20	hreshold.0.8125.purecopy.t.data.
10a0	28 6f 75 74 70 75 74 20 32 34 20 76 61 6c 75 65 20 37 32 29 29 20 67 65 6e 65 72 61 74 65 2d 6e	(output.24.value.72)).generate-n
10c0	65 77 2d 62 75 66 66 65 72 20 22 20 2a 74 65 6d 70 20 66 69 6c 65 2a 22 20 6d 61 6b 65 2d 62 79	ew-buffer.".*temp.file*".make-by
10e0	74 65 2d 63 6f 64 65 20 30 20 22 5c 33 30 31 5c 33 30 30 21 5c 32 30 35 09 00 5c 33 30 32 5c 33	te-code.0."\301\300!\205..\302\3
1100	30 30 21 5c 32 30 37 22 20 76 63 6f 6e 63 61 74 20 76 65 63 74 6f 72 20 5b 62 75 66 66 65 72 2d	00!\207".vconcat.vector.[buffer-
1120	6e 61 6d 65 20 6b 69 6c 6c 2d 62 75 66 66 65 72 5d 20 32 20 6f 72 67 2d 62 61 62 65 6c 2d 65 76	name.kill-buffer].2.org-babel-ev
1140	61 6c 20 62 75 66 66 65 72 2d 73 74 72 69 6e 67 20 77 72 69 74 65 2d 72 65 67 69 6f 6e 20 6e 69	al.buffer-string.write-region.ni
1160	6c 20 66 6f 72 6d 61 74 20 22 6e 6f 6e 65 22 20 22 73 63 61 6c 61 72 22 20 22 76 65 72 62 61 74	l.format."none"."scalar"."verbat
1180	69 6d 22 20 22 68 74 6d 6c 22 20 22 63 6f 64 65 22 20 22 70 70 22 20 22 66 69 6c 65 22 20 22 6f	im"."html"."code"."pp"."file"."o
11a0	75 74 70 75 74 22 20 22 72 61 77 22 20 22 6f 72 67 22 20 22 64 72 61 77 65 72 22 20 22 74 61 62	utput"."raw"."org"."drawer"."tab
11c0	6c 65 22 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 20 6f 72 67	le".org-babel-eval-read-file.org
11e0	2d 62 61 62 65 6c 2d 69 6d 70 6f 72 74 2d 65 6c 69 73 70 2d 66 72 6f 6d 2d 66 69 6c 65 20 28 31	-babel-import-elisp-from-file.(1
1200	36 29 5d 20 31 36 20 28 23 24 20 2e 20 33 31 37 36 29 5d 29 0a 28 70 72 6f 76 69 64 65 20 27 6f	6)].16.(#$...3176)]).(provide.'o
1220	62 2d 70 65 72 6c 29 0a	b-perl).