1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
<html>
<head>
<title>Embperl Tests - Errors in Include other Embperl pages via Execute 3</title>
</head>
<h1>Embperl Tests - Errors in Include other Embperl pages via Execute 3</h1>
[# cause runtime error #]
[- Execute ( {inputfile => 'incerr.htm', param => ['err', 'main'], errors => \@errors}) -]
***errors: [+ "@errors" +]<br>
[- $rc = Execute ( {inputfile => 'incerrobj.htm', errors => \@errors}) -]
***rc: [+ $rc +]
***errors: #[+ scalar(@errors) +]<br>
***errors: [+ join ("\n\n", @errors) +]<br>
***errobj: [- $e = $epreq -> errobj -][+ $e +]<br>
***errobj msg: [+ $epreq -> errobj?$epreq -> errobj -> {msg}:'<undef>' +]<br>
***errors msg: [+ ref $errors[-1]?$errors[-1] -> {msg}:'<undef>' +]<br>
</body>
</html>
|
