File: nochdir.htm

package info (click to toggle)
libembperl-perl 2.5.0-4
  • links: PTS, VCS
  • area: main
  • in suites: jessie-kfreebsd
  • size: 6,200 kB
  • sloc: ansic: 21,387; perl: 14,496; cpp: 467; xml: 49; makefile: 32; sh: 24
file content (31 lines) | stat: -rw-r--r-- 592 bytes parent folder | download | duplicates (11)
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
30
31
<html>
<head>
<title>Some tests for Embperl</title>
</head>


<body>

[- use Cwd (); -]

optDisableChdir:[+ $optDisableChdir +] <BR>
optDisableFormData: [+ $optDisableFormData +] <BR>
Script  CWD: [+ $script = Cwd::fastcwd() +] <BR>
Embperl CWD: [+ $ep =     $HTML::Embperl::cwd +] <BR>

Equal: [+ $script eq $ep?'Yes':'No' +]<BR>
Diff CWD: [+ do { $script =~ /$ep/ ; ">$'<" } +]<BR>
Test/html: [+ $script =~ /test(?:\/|\\)html$/?'yes':'no' +]

[- @ks = sort keys %fdat -]

	<table>
		<tr>
			<td>[+ $ks[$row] +]</td><td>[+ $fdat{$ks[$row] || ''} +]</td>
		</tr>
	</table>



</body>
</html>