File: execnotfound.htm

package info (click to toggle)
libhtml-embperl-perl 1.3.6-2
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 2,524 kB
  • ctags: 1,182
  • sloc: ansic: 8,983; perl: 4,555; makefile: 83
file content (22 lines) | stat: -rw-r--r-- 279 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
<html>
<head>
<title>Tests for Embperl - Execute non exitent file</title>
</head>


<body>

 
[- 
$r = shift ;
my $err = $r -> Error ;
$rc = Execute { inputfile => 'notfound.htm', options => 262144 } ;
$r -> Error ($err) ;

-]


rc = [+ $rc +]<br>
  
<p>Done.</p>
</body></html>